Delphi Programming RTL Reference|By Category|Alphabetically|By Unit
 

If the current procedure is the main program, Exit causes the program to terminate - like a call to Application.Terminate If Exit is called inside the try clause, the finally clause is still executed.

//alow only numeric characters in an Edit box

procedure TForm1.Edit1KeyPress
(Sender: TObject; var Key: Char);
begin
 if not (key in ['0'..'9']) then Exit;
end;