procedure TForm1.Button1Click(Sender: TObject);
var
  i,n:dword;
  s:string;
begin
  for i:=0 to memo1.Lines.Count-1 do
  begin
    n := pos(';',memo1.Lines.Strings[i]);
    If (n > 0) then
    begin
      s := copy(memo1.Lines.Strings[i],1,n-1);
      memo2.Lines.Add(s);
      inc(n);
      s := copy(memo1.Lines.Strings[i],n,length(memo1.Lines.Strings[i]) - n);
      memo3.Lines.Add(s);
    end;
  end;
end;