[MOJO]

Вот, что нашел

Код:

const
  Numbers = '0123456789';
begin
  if StrScan(Numbers, '2') <> nil
  then ShowMessage('2 - числовая цифра')
  else ShowMessage('2 - не числовая цифра');

  if StrScan(Numbers, 'A') <> nil
  then ShowMessage('A - числовая цифра')
  else ShowMessage('A - не числовая цифра');
end;

мое:

Код:

function StrScan ( const Characters : PAnsiChar; SearchChar : Char ) : PAnsiChar;
const
  Alphabet = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
begin
  if StrScan(Alphabet, 'а') <> nil
  then ShowMessage('а - числовая цифра')
  else ShowMessage('а - не числовая цифра');
end;

Я в дельфи новичок(изучаю всего 2 дня)
Вот список ошибок

[Error] Unit1.pas(30): Statement expected but 'FUNCTION' found
[Error] Unit1.pas(39): Declaration expected but identifier 'ShowMessage' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'