procedure TForm1.Button1Click(Sender: TObject);
Var St:String;
begin
St:='test';
Memo1.SelText:=St;
end;