procedure TForm1.Edit1Exit(Sender: TObject); begin showmessage('Asla yazı kutusundan çıkamassın'); postmessage(handle,WM_NEXTDLGCTL,0,0); postmessage(handle,WM_NEXTDLGCTL,1,0); end;