[opel431]

да вроде все давно известно, см:

1. В новых версиях есть модуль Character, в нем функции:

ch:Char;
------------------------------
// проверка по алфавиту
if IsLetter(ch) then

// проверка на цифры
if IsDigit(ch) then

// проверка на символ
if IsSymbol(ch) then


2. В старых можно примерно так

// проверка по алфавиту
function IsLetter(ch : Char): boolean;
begin
Result := False;
Result := ch in ['а' .. 'я', 'А' .. 'Я'];
end;

// проверка на цифры
function IsNumber(ch : Char): boolean;
begin
Result := False;
Result := ch in ['0'..'9'];
end;

3. Проверять строку на цифры/ символы

function ValueStr(const s: string): Boolean;
var
i: Cardinal;
begin
for i := 1 to Length(s) do
if (AnsiChar(s[i]) in ['0' .. '9']) = False then
begin
Result := False;
exit;
end;
Result := True;
end;

// Example
var
s:string;
.............
if ValueStr(s) then
или реверс
if not ValueStr(s) then