Выдает ошибку Stream write error(delphi)

[KICK-BOXER]

Помогите пожалуйста. Компилирую нажимаю на button выдает ошибку "Stream write error"

procedure TForm2.Button1Click(Sender: TObject);

 var
 Buffer: array [1..4] of char;
 size:integer;

begin
  MS := TMemoryStream.Create;
  FS := TFileStream.create('J:\потоки\Текстовый документ (4).txt',fmOpenRead);
   try
    while FS.Position<FS.Size do
        begin
              FS.ReadBuffer(Buffer, SIZEof(Buffer));

              MS.WriteBuffer(Buffer,SIZEof(Buffer));

             end;
             MS.SaveToFile('J:\потоки\(4).txt');
              finally
              FS.Free;




end;
end;



end.

[Serge_Bliznykov]

во-первых, непонятно зачем Вам этот огород.

во-вторых,
FS.ReadBuffer(Buffer, SIZEof(Buffer));

а кто Вам сказал/обещал, что размер вашего 'Текстовый документ (4).txt' кратен SIZEof(Buffer) ?

в-третьих, а кто MS.Free делать будет?!

[KICK-BOXER]

Исправил. Заработало. Спасибо большое. Задали вот и пришлось делать такой огород.