procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
str, str2, str3: string;
begin
  for i:=0 to 10 do
  begin
    str:=memo1.lines.strings[i];
    insert(copy(str,1,pos(';',str)-1), str2, 1);
    insert(copy(str,pos(';',str)+1,length(str)-pos(';',str)), str3, 1);
    end;
     memo2.lines.Add(str2);
     memo3.lines.add(str3);
end;