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

[Luckie]

Jetzt habe ich es:

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s: String;
begin
  s := '13 gramm sind 10 zuviel';
  //s := '-124.040,012';
  //s := 'dieses Rezept ist nicht zum kochen gedacht';
  if IsValidFloat(s) then
    ShowMessage('Zahl')
  else
    ShowMessage('gemischt');
end;