Delphi/Lazarus function to find 8 digit numbers in a string : I have e-mail subject lines and I want to find ticket references in them it could be the TT ref is like 12345678. One subject line (string) can have multiple 8 digit numbers!

I have been using the below code but it is merely stripping out the first 8 digits:

    function StripNumbers(const aString: string): string;
    var
      C: char;
    begin
      Result := '';
      for C in aString do
      begin
        if CharInSet(C, ['0'..'9']) then
        begin
          Result := Result + C;
        end;
      end;
    end;   


THank you for answers.