function IsNum(ANum: string): Boolean;
var
i: Integer;
Begin
Result:= (ANum <> '');
for i:= 1 to Length(ANum) do
if not (ANum[i] in ['0' .. '9', '.', '-', '+']) then
begin
Result:= False;
Exit;
End;
End;