Hilfe string kontrolle missglückt

[Klaus01]

.. ich hätte die Methode in etwas so aufgebaut.

Delphi-Quellcode:

procedure TForm1.btn_PruefenClick(Sender: TObject);
var Eingabe : string;
     i,
     Stringlänge : integer;
     Überprüfungsarray : array of char;
     //Falsch,
     richtig : Boolean;
begin
  Eingabe := edtEingabe.Text;
  Stringlänge :=Length(Eingabe);
  SetLength(Überprüfungsarray,Stringlänge);
  for I := 0 to Stringlänge-1 do
  begin
    Überprüfungsarray[i]:= Eingabe[i];
    richtig := Überprüfungsarray[i] in ['a'..'z','A'..'Z']);
    if not richtig then
      break;
  end;

  if Richtig then
    begin
      MessageDlg('Eingabe korrect',mtInformation,mbOKCancel,0);
      edtEingabe.Clear;
    end
  else
    begin
      MessageDlg('Fehlerhafte Eingabe nur Buchstaben',mtError,mbOKCancel,0);
      MessageDlg(IntToStr(Stringlänge),mtInformation,mbOKCancel,0);
      edtEingabe.Clear;
    end;

end;