var a:string;...edit1.text := edit2.text;edit2;text := a;
var a:string; ... a := Edit1.Text; Edit1.Text := Edit2.Text; Edit2;Text := a;