[s0Creator]

PHP код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // перечисляешь все допустимые символы если целое то
  // if not (Key in ['0'..'9','+']) then Application.Terminate;
  // если с запятой и мантисой
  if not (Key in ['0'..'9','+',DecimalSeparator,'e','E']) then Application.Terminate;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
// если может быть с запятой
if StrToFloatDef(Edit1.Text,0) <= 0 then Application.Terminate;
// если толь целое
// if StrToIntDef(Edit1.Text,0) <= 0 then Application.Terminate;
end;