Delphi Drawers

function fnIsNumeric(strVal : string) : boolean;
var
  iTemp1:integer;
  iTemp2:integer;
begin
  Val(strVal,iTemp2,iTemp1);
  if iTemp2 = iTemp2 then begin
  end;
  Result :=  (iTemp1 = 0);
end;