procedure TForm1.Button1Click(Sender: TObject);
var i,count:integer; m2:string;
begin
count:=memo1.lines.count-1;
//Минус один -> потому что отсчет начинается от нуля
for i:=0 to count do
//Отсчет начинается от нуля в строках мемо
begin
m2:=memo1.lines[i];
memo2.lines[i]:=copy(m2, 1, pos(':', m2)-1);
//Копируем строку, первый параметр -> откуда копируем, второй -> с какого расположения символа начинаем копировать, третий -> сколько копируем
//Ах да, чтобы копировать в memo2 в определенную строку в ней -> надо убедиться что она существует :), т.е. лучше копировать в memo1
end;
end;