[friz]

а если так :

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
form1.SetFocus;
end;