Cursor per button auf Edit1 aktivieren?

[Tim.exe]

Delphi-Quellcode:

procedure button...
begin
Edit1.SetFocus;
end;