String Zeichen für Zeichen nach ANSI-Codes durchsuchen? Wie?

[Armageddon]

Hallo

Hab mal wieder ne kleine Bescheidene Frage.


Ich hab den Inhalt der Zwischenablage einem String zugewiesen. Und vorher auch schon getestet ob es nur Text ist. Soweit so gut.
Jetzt möchte ich aber diesen Text nach allen ANSI's durchsuchen außer
nach den Ziffern 0 bis 9. Falls ein anderes Zeichen außer den Ziffern enthalten ist, ist der Text ungültig und darf nicht in's Editfeld eingefügt werden.

Habe schon hier verzweifelt gesucht und auch in der Hilfe nachgesehen.
Aber ich seh den Wald vor lauter Bäumen mal wieder nicht.

Bis jetzt sieht es so aus:

Delphi-Quellcode:

procedure TForm1.Einfuegen1Click(Sender: TObject);
var
  Eingabe, Ausgabe, Zeichen: String;
begin
  begin
    if not 'bla bla bla Zwischenablage nix Text usw. das übliche' then
    Application.MessageBox('bla bla bla','bla bla',48)
    else
    Eingabe := Clipboard.AsText;

'Hier sollte nun vom ersten Zeichen an geprüft werden ob obiges zutrifft
wenn dann ein Zeichen gefunden wird das keine Ziffer ist soll ne Fehlermeldung kommen und gut'

'ansonsten gehts hier weiter'

Hoffe mir kann jemand helfen.

Gruß Arma.