[Crack502]

Попробуй, может пригодится

var
  Form1: TForm1;
  s,s1,s2: String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=Memo1.Lines.Strings[0];
s1:=copy(s, 0, Trunc(length(s)/2));
s2:=copy(s, length(s1)+1, Trunc(length(s)/2));
memo2.Lines.Add(s1);
memo2.Lines.Add(s2);
end;