[f00rd]

steelik

var
 i:integer;
 s:string;
begin
try
 i:=StrToInt(s);
except
 exit;
 //s- не число
end;

или

var
 i:integer;
 s:string;
begin
 i:=StrToIntDef(s,-12345);
 if i=-12345 then exit;//s- не число
end;