[Karsh]

вот процедура проверки строки:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i: Integer;
  f: Double;
begin
  s:= Edit1.Text;
  if TryStrToInt(s, i) then
  begin
    ShowMessage('Целое число');
    exit;
  end;
  if TryStrToFloat(s, f) then
  begin
    ShowMessage('Дробное число');
    exit;
  end;
  ShowMessage('Ошибка!');
end;