[White_Horse]

Сообщение от Vigor

Нужно сделать проверку, если в Edit введено что-либо кроме положительного числа то выйти из программы, как это можно сделать?

Обработай событие OnKeyPress у своего Edita'a , как пример :

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['1'..'9'] then //запрет ввода чисел 1 - 9 
    begin
      Key:=#0;
      Exit;//Close
    end;
end;