Konvert Integer-Textliste nach Binary

[HPW]

Hallo,

Ich will eine Textdatei die eine Liste von Integern enthält die mit einem Delimiter gerennt sind nach Binary konvertieren.
Mein Code dafür bislang:

Delphi-Quellcode:

   IF FileExists(inFile) THEN
    BEGIN
      TempList := TStringList.Create;
      TRY
           TempList.LoadFromFile(inFile);
           TempList.Text := StringReplace (TempList.Text,delimiter,chr(13)+chr(10),[rfReplaceAll, rfIgnoreCase]);
           OutStream := TMemoryStream.Create;
           TRY
             lstcount := 0;
             while (lstcount <= TempList.Count - 1) do
               begin
                 intnumber := StrToInt(TempList[lstcount]);
                 OutStream.Write(intnumber,1);
                 INC(lstcount);
               end;
             OutStream.SaveToFile(outFile);
           FINALLY
             OutStream.Free;
           END;
      FINALLY
        TempList.Free;
      END;
      Result := TRUE;
    END;

Frage: Jemand eine Idee für einen schnelleren Algorithmus?