Mam cos takiego:
Procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
tekst : string;
If Key = #13 then
begin
Sleep(1000);
Edit2.Visible := true;
// wpisz cos w edit2
Edit2.Text := tekst;
...
end;
Z tym ze kursor tekstu zostal na Edit1, jak automatycznie przeniesc kursor aby mozna bylo wpisac tekst w Edit2. Naciskanie myszka nie wchodzi w gre, bo edit2 nie jest obramowane i jest w kolorze tla - tzn wyglada jak Label.
Pomocy!! --GW