DELPHI / Cursor Sabitlemek

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;