Количество букв в поле edit (именно букв)

Var IsLetter: Boolean;
    i: Integer;
begin
for i:= 1 to Length(Edit.Text) do
if not (Edit.Text[i] in ['A'..'Z', 'a'..'z'])
then 
      begin
      IsLetter := False;
      break;
      end;
if IsLetter then
if Length(Edit.Text) then ... //че то сделали
end;

then 
      begin
      IsLetter := False;
      break;
      end;

if not (Edit.Text[i] in ['A'..'Z', 'a'..'z'])

Var IsLetter: Boolean;
    i: Integer;
    s: string;
begin
  IsLetter := true;
  s := Edit.Text;
  for i := 1 to Length(s) do 
    if not(s[i] in ['A'..'Z', 'a'..'z'])
      then begin
        IsLetter := False;
        break
      end;
  if IsLetter and (Length(s) > 2)
    then //всё нормально
    else //не всё нормально
end;

var
  i: integer; //для цикла
  str: string; //строка
begin
  Str := Edit1.Text;
  for i := 1 to Length(Str) do
    case ord(Str[i]) of
      48..57: ShowMessage(str[i] + ' - цифра');
      192..255: ShowMessage(str[i] + ' - Русская буква');
      65..90, 97..122: ShowMessage(str[i] + ' - Английская буква');
      //65-90 диапазон заглавных англ букв 97-122 мелких
    end;
end;