Filestream Datei nicht gefunden bei FOpenWrite

[EWeiss]

Delphi-Quellcode:

          if (FileExists(FileOne)) then
          begin
            GetImageSizeFromFile(FileOne, Width, Height);
            FileStream := TFileStream.Create(FileOne, fmOpenRead);

            if FileStream.Handle <> INVALID_HANDLE_VALUE then
            begin
              BufferSize := FileStream.Size;
              SetLength(sBuffer, BufferSize);

              FileStream.Read(sBuffer[0], BufferSize);
              if Assigned(sBuffer) then
              begin
                Offset := BufferSize + 1;
                FileStream.Free;

                FileStream := TFileStream.Create(FileOut, fmOpenWrite);

Compiler meldet Datei nicht gefunden..
Logisch die will ich doch mit

TFileStream.Create(FileOut, fmOpenWrite);

erst erstellen.
Hab ich da nen Denk Fehler ?

Mit
CreateFile(PWideChar(FileOut), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);

funktioniert es mit dem FileStream aber nicht.


gruss