[lmikle]

Код:

function CountLtr(S : String) : Integer;
var
  I : Integer;
begin
  Result := 0;
  For I := 1 to Length(S) Do
    If S[i] In ('A'..'Z','0'..'1') Then Inc(Result);
end;

Использование:

Код:

Memo2.Lines.Add(IntToStr(CountLtr(Memo1.Lines.Text)));

А, вообще, мог и сам додуматься.