Title: How to force the input in a TEditprocedure TForm1.Edit1Exit(Sender: TObject);beginif Edit1.Text = '' thenEdit1.SetFocus;end;