[hasherfrog]

Код:

function IsInt(st:string): boolean ;
var
a:integer;
begin
  result:=false;
  for a:=1 to length(st) do
         if not (st[a] in ['1','2','3','4','5','6','7','8','9','0']) then
            exit;
  result:=true;
end;

function IsInteger(S: String) : Boolean;
var
aNo,err:integer;
begin
 val(S,aNo,err);
 if err=0 then result:=true else
 result:=false;
end;

http://www.delphipages.com/tips/copyview.cfm?ID=197

[Madmech]

hasherfrog
Спасибо, проблема решена! Я спасен!