Gemme StringGrid i TStream -> Blob felt

Jeg har et string grid som jeg gerne vil gemme
i en stream og derefter smide ned i et blob felt

Har lavet lidt eks. kode til at gemme/hente:

procedure TForm1.BitBtnGemClick(Sender: TObject);
begin
  MyStream := TStream.Create;
  MyStream.WriteComponent(StringGrid1);
end;

procedure TForm1.BitBtnHentClick(Sender: TObject);
begin
  MyStream.Position := 0;
  MyStream.ReadComponent(StringGrid1);
end;

Men allerede under gem får jeg en runtime fejl:
TStream.seek not implemented ? hvad mon det kan skyldes ?


Og når problemet er løst, hvordan får jeg så hent til at virke ?