function isInteger(s: string): boolean;
begin
try
 StrToInt(s);
 Result := True;
Except
 Result := False
end;

function isString(s: string): boolean;
var i:integer;
begin
for i:=0 to Length(s) do
 begin
  if s[i]  in then //string diamsusikan tidak ada karakter 0 s/d 9 
   begin
    Result := False;
    exit;
   end;
 end;
Result := True;
end;

Function isDate(s: string);
begin
Try
 StrToDate(s); //Format Date tergantung dari regional setting
 Result := True;
except
 Result := False;
end;
end;

@deLogic: pada stringgrid, isi dari setiap cell adalah string. untuk mengetahui apakah string, integer atau date, coba lakukan type-casting, jika sukses berarti "ada kemungkinan" tipe datanya adalah sesuai dengan yang diperkirakan. melakukan casting bisa dengan fungsi TryStrToInt , TryStrToDate misalnya...

@old_shutterhand: weks, ada to funsi konversi dengan prefix try, duh baru tw nih, padahal dulu sering banget nemu error, not valid integer value n akhirnya bikin fungsi validasi sendiri. matur nuwun infonya