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;

procedure Zaplatka(l: PStrList);[/code]
правильнее писать так:
procedure Patch(l: PStrList);[/code]

function THIBitmapArray.DataToPointer;
var bmp:PBitMap;
begin
   if Data.Data_type = data_bitmap then
    begin
      bmp := NewBitmap(0,0);
      bmp.Assign(PBitmap( data.idata) );
      Result := integer(bmp);
    end
   else result := 0;
end;

PRect(dst.idata):=PRect(src.idata);[/code] отличается от
dst.idata:=src.idata;[/code]

:?: :?: :?:

dst.idata:=integer(new(PRect));[/code]здесь idata указатель.

[size=-2]------ Добавлено в 09:18 [/size]
упсс может надо было крыжик добавить ^
смысл в присвоении PRect(dst.idata).top:=PRect(src.idata).top;  и так далее.

[size=-2]------ Добавлено в 09:39 [/size]
точно нужен ^, проверка проста. :) 
 Var a,b:PRect; 
begin 
new(a);new(b);
a.top:=10;a.left:=50;b^:=a^; 
dispose(a);
msgok(int2str(b.top+b.left));