procedure TForm1.Button1Click(Sender: TObject);
var i,raz,endf,len,e, count:integer; m2:string;
begin
count:=memo1.lines.count;
for i:=1 to count do
begin
m2:=memo1.lines[i];
raz:=pos(':',m2);
len:=length(m2);
e:=len - raz;
delete(m2,raz,e);
memo2.lines[i]:=m2;
end;
end;