#pas
function isFloat(const s:string; var dt:TData):boolean;
var //i,j:integer;
    float: Double;  //Extended;
    errorPos: Integer;
begin
   Result := false;
   
   Val(s, float, errorPos);
   if errorPos > 0 then Exit;
   Result := True;
   dtReal(dt, float{Str2Double(s)});
end;