[4kusNick]

Можешь так:

var
i: Integer;
try
i := StrToInt(Edit1.Text);
// значит цифра(ы)
except
// значит не цифра(ы)

end;