[stil]

Код:

var
s:string;
dl,k:integer;
begin
s:=memo1.lines.text;
dl:=length(s);
k:=dl div 2;
delete(s,k,1);
memo2.lines.add(s);
end;