String auf Buchstaben testen

[TomDooley]

Gibt es eine fertige Funktion in Delphi mit der man einen String auf Buchstaben überprüfen kann?

Ich hab's bislang so gelöst:

Delphi-Quellcode:

function CheckLetter(Text : String) : boolean;
var
  i : integer;
begin
  Result := false;
  for i:=1 to Length(Text) do
  begin
    if Text[i] in [chr($41)..chr($5A),chr($61)..chr($7A)] then
    begin
      Result := true;
      break;
    end;
  end;
end;

Gibt es eine effizienere Methode?

Danke