Konvert Integer-Textliste nach Binary

[HPW]

Das ist wohl richtig, obwohl der Code so funktioniert.
So ist es wohl richtiger.

Delphi-Quellcode:

FUNCTION IntToBinFile( inFile, outFile, delimiter : STRING) : BOOLEAN;
VAR
  TempList     : TStrings;
  OutStream    : TMemoryStream;
  lstcount     : Integer;
  intbyte      : Byte;
  ext          : STRING;
begin
 ext := ExtractFileExt(inFile);
 IF ext <> '' THEN
   BEGIN
   IF FileExists(inFile) THEN
    BEGIN
{            showmessage (inFile+outFile);}
      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
                 intbyte := StrToInt(TempList[lstcount]);
                 OutStream.Write(intbyte,1);
                 INC(lstcount);
               end;
             OutStream.SaveToFile(outFile);
           FINALLY
             OutStream.Free;
           END;
      FINALLY
        TempList.Free;
      END;
      Result := TRUE;
    END;
end;

Meine Frage ging aber mehr in die Richtung Performance.
Ist eine Stringliste die schnellste Möglichkeit?