[Димона]

Сообщение от 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;

но она работает только если я ввожу 1 слово.. а если несколько..?