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

[Luckie]

Nächster Versuch:

Delphi-Quellcode:

function IsNumberInString(const s: String): Boolean;
var
  i: Integer;
begin
  result := FALSE;
  i := length(s);
  while i > 0 do
  begin
    if (s[i] in [#48..#57]) then
    begin
      result := TRUE;
      exit;
    end;
    dec(i);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := 'sdfvsa7843vskljc023dskjv3746';
  s := 'abc';
  if IsNumberInString(s) then
    ShowMessage('Ziffer vorhanden.')
  else
    ShowMessage('War wohl nichts.');
end;