[ALexandr555]

у меня вопрос, если ли какая стандартная функция проверки является ли строка числом, является ли строка датой?

[Aristarh Dark]

Таки да, есть:
TryStrToInt
TryStrToDateTime
и т.п.

[NumLock]

из справки:
Val example

Код:

uses Dialogs;
var 
  I, Code: Integer;
begin
  { Get text from TEdit control }
  Val(Edit1.Text, I, Code);
  { Error during conversion to integer? }
  if Code <> 0 then
    MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0, mbOk);
  else
    Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I));
end;

даже позицию ошибки скажет

Код:

function TryStrToInt(const S: string; out Value: Integer): Boolean;
var
  E: Integer;
begin
  Val(S, Value, E);
  Result := E = 0;
end;

[ALexandr555]

Спасибо, удобно