var sl: TStringList; i, k: Integer;
[...]
  sl := TStringList.Create;
  try
    sl.Delimiter := ' ';
    sl.DelimitedText := 'Du hast 800 Euro und 20 Fische im Karton';
    for i := 0 to sl.count - 1 do
    begin
      if TryStrToInt(sl[i], k) then
      begin
        //Ich bin eine Zahl
      end else begin
        //Ich bin keine Zahl
      end;
    end;
  finally
    sl.Free;
  end;
end;