пытаюсь я получить и обработать информацию из сети с помощью компонентов Indy:

procedure TForm1.FormCreate(Sender: TObject);
var
buffer,mbuffer:TStream;
myHTTP : TidHTTP;
begin
buffer:=TFileStream.Create('1.dat',fmCreate or fmOpenWrite);
mbuffer:=TMemoryStream.Create;
myHTTP := TidHTTP.Create(nil);
myHTTP.Get(str,mbuffer);
buffer.CopyFrom(mbuffer,mbuffer.Size);
mbuffer.Free;
buffer.Free;
end;

на buffer.CopyFrom получаю ошибку.
Что делать??

код
procedure TForm1.FormCreate(Sender: TObject);
var
buffer,mbuffer:TStream;
myHTTP : TidHTTP;
begin
mbuffer := TFileStream.Create('1.dat', fmOpenReadWrite);
buffer := TFileStream.Create('2.dat', fmOpenReadWrite);
buffer.CopyFrom(mbuffer,mbuffer.Size);
buffer.Free;
mbuffer.Free
end;
работает нормально

Код

procedure TForm1.FormCreate(Sender: TObject); var buffer,mbuffer:TStream; myHTTP : TidHTTP; begin buffer:=TFileStream.Create('1.dat',fmCreate or fmOpenWrite); mbuffer:=TMemoryStream.Create; myHTTP := TidHTTP.Create(nil); myHTTP.Get(str,mbuffer); [B]buffer.Seek(0, sofromend);[/B] buffer.CopyFrom(mbuffer,mbuffer.Size); mbuffer.Free; buffer.Free; end;