procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = 13 then
Key := 0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;