[Rosenkrantz]

Код:

function  CheckText(S: String): Boolean;
var
  X: Double;
  ErrorCode: Integer;
begin
  if S = '' then S := '0';

  Val(S, X, ErrorCode);
  Result := ErrorCode = 0;
end;