Сделать проверку на ввод только букв из русского алфавита

unit Unit1;
 
interface
 
uses
  SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button2: TButton;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    type
      Student = record
        Surname: string;
        Gender: string;
        Age: Integer;
        Grade: Integer;
      end;
 
    var
      Students: array[1..10] of Student;
      StudentCount: Integer;
 
    procedure AddStudent(Surname, Gender: string; Age, Grade: Integer);
    procedure Sort;
    procedure FindYoungestStudent;
    procedure CountStudents;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.AddStudent(Surname, Gender: string; Age, Grade: Integer);
begin
  if StudentCount < 10 then
  begin
    StudentCount := StudentCount + 1;
    Students[StudentCount].Surname := Surname;
    Students[StudentCount].Gender := Gender;
    Students[StudentCount].Age := Age;
    Students[StudentCount].Grade := Grade;
    ListBox1.Items.Add(Surname + ' - ' + Gender + ' - ' + IntToStr(Age) + ' - ' + IntToStr(Grade));
  end
  else
    ShowMessage('Максимум 10 студентов!');
end;
 
procedure TForm1.Sort;
var
  i: Integer;
   t: TStringlist;
begin
  ListBox2.Items.Clear;
  for i := 1 to StudentCount do
  begin
    if (Students[i].Gender = 'муж') and (Students[i].Grade = 3) and (Students[i].Age > 17) then
      ListBox2.Items.Add(Students[i].Surname);
    TStringList(ListBox2.Items).Sort;
  end;
end;
 
procedure TForm1.FindYoungestStudent;
var
  i, YoungestIndex: Integer;
  YoungestAge: Integer;
begin
  if StudentCount = 0 then
    ShowMessage('Нет студентов.')
  else
  begin
    YoungestAge := Students[1].Age;
    YoungestIndex := 1;
 
    for i := 2 to StudentCount do
    begin
      if Students[i].Age < YoungestAge then
      begin
        YoungestAge := Students[i].Age;
        YoungestIndex := i;
      end;
    end;
 
    ShowMessage('Самый молодой студент: ' + Students[YoungestIndex].Surname + ' (' + IntToStr(YoungestAge) + ' лет)');
  end;
end;
 
procedure TForm1.CountStudents;
var
  i, ManCount, WomenCount: Integer;
begin
  ManCount := 0;
  WomenCount := 0;
  for i := 1 to StudentCount do
  begin
    if Students[i].Gender = 'муж' then
      ManCount := ManCount + 1;
    if Students[i].Gender = 'жен' then
      WomenCount := WomenCount + 1;
  end;
 
  ShowMessage('Количество студентов: ' + IntToStr(StudentCount));
 
  if ManCount = 0 then
    ShowMessage('Нет мужчин.');
  if WomenCount = 0 then
    ShowMessage('Нет женщин.');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Surname, Gender: string;
  Age, Grade, i, NumberOfStudents: Integer;
begin
  NumberOfStudents := StrToIntDef(InputBox('Количество студентов', 'Введите количество студентов (макс. 10):', '10'), 1);
 
  if (NumberOfStudents < 1) or (NumberOfStudents > 10) then
  begin
    ShowMessage('Количество студентов должно быть от 1 до 10.');
    Exit;
  end;
 
  StudentCount := 0;
for i := 1 to NumberOfStudents do
  begin
    Surname := InputBox('Введите фамилию', 'Введите фамилию студента русскими буквами ' + IntToStr(i) + ':', '');
    Gender := InputBox('Введите пол', 'Введите пол студента ' + IntToStr(i) + ' (муж/жен):', '');
    if ((Gender<>('муж')) and (Gender<>('жен'))) then
    gender:='неправильный пол';
    Age := StrToIntDef(InputBox('Введите возраст', 'Введите возраст студента ' + IntToStr(i) + ':', '18'), 18);
     if ((Age<0) or (Age=0)) then
     Age:=1;
    Grade := StrToIntDef(InputBox('Введите оценку', 'Введите оценку студента ' + IntToStr(i) + ':', '5'), 5);
     if (((Grade<0) or (Grade=0))) then
     grade:=0;
    AddStudent(Surname, Gender, Age, Grade);
  end;
 sort;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
    FindYoungestStudent;
end;
 
 
end.

     if Age<=0 then