запись компонента через TFileStream и считывание.

[Alexandr17-10]

Вот код записи компонента

procedure TMain_Application.BTN5Click(Sender: TObject);
begin
  StreamLoadSave:=TFileStream.Create(ExtractFileDir(Application.ExeName)+'\Ðåäàêòîð Libx\TRV1.dat', fmCreate);
  try
    StreamLoadSave.WriteComponent(TRV1);
  finally
    StreamLoadSave.Free;
  end;
end;

А вот считывание

procedure TMain_Application.BTN6Click(Sender: TObject);
begin
  StreamLoadSave:=TFileStream.Create(ExtractFileDir(Application.ExeName)+'\Ðåäàêòîð Libx\TRV1.dat', fmCreate);
  try
    StreamLoadSave.ReadComponent(TRV1);
  finally
    StreamLoadSave.Free;
  end;
end;

но почему при попытки считывать ошибка выходит

[Stilet]

А вот считывание

Это не считывание а запись. Для считывания нужно fmOpenRead писать а не fmCreate