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));