procedure TForm1.Button1Click(Sender: TObject);
var
 i:integer;
 str:string;
begin
if str[i]=';' then
begin
  insert(copy(memo1.line,1,i-1),memo2.line,1);
end;
end;