TObject zu System.Byte[] casten und Bitmap zuweisen ???

[winx]

danke,
es ist eine vollständige Bitmap Datei, diese wurde früher als OleVariant übergeben und mit diesem Code angezeigt:

Delphi-Quellcode:

procedure Tmainform.ConvertOleVarianttoBitmap(Data : OleVariant);
var
  ms : TMemoryStream;
  p : Pointer;
  MyBitmap : TBitmap;
begin
  ms:=TMemoryStream.Create;
  p:=VarArrayLock(Data);
  try
    ms.Write(p^,VarArrayHighBound(Data,1)+1);
  finally
    VarArrayUnlock(Data);
  end;
  ms.seek(0,soFromBeginning);
  myBitmap:=TBitmap.Create;
  myBitmap.LoadFromStream(ms);
  image.Picture.Assign(myBitmap);
  ms.Free;
  myBitmap.Free;
end;

Wie mach ich denn das ganze jetzt wenn ein TObject übergeben wird, dass ich in einem
Stream umwandeln und damit das Bitmap erzeugen will.

Kannst du mir vielleicht ein kleines Codebsp posten?

Danke,
winx