procedure TPictureEx.SaveToStream(Stream: TStream);
var
GraphClassName: String;
0A ClassNameLen: Integer;
begin
if Graphic<> nil then
begin
GraphClassName := Graphic.ClassName;
ClassNameLen := Length(GraphClassName);
Stream.Write(ClassNameLen,Sizeof(ClassNameLen));
Stream.Write(GraphClassName[1],ClassNameLen);
end;
end;