procedure SetData(dst, src: PData);
begin
  dst:=src;
  dst.ldata:=nil;
  case src.data_type of
    data_font: Begin
          dst.idata:=integer(new(PFontRec));
          PFontRec(dst.idata):=PFontRec(src.idata);
       end;
    data_bitmap: begin
          dst.idata:=integer(NewBitmap(0,0));
          PBitmap(dst.idata).Assign(PBitmap(src.idata));
       end;
    data_icon: begin
          dst.idata:=integer(NewIcon);
          PIcon(dst.idata).Handle:=PIcon(src.idata).Handle;
       end;
    data_rect: Begin
          dst.idata:=integer(new(PRect));
          PRect(dst.idata):=PRect(src.idata);
       end;
  end;
end;