Variabile dinamice

Este drept ce dracie am facut eu aishi ?varnewfrm:^Tform4;frms:array[1..50] of pointer;i:integer;beginShowmessage(inttostr (Sizeof(Tform4))); for i:=1 to 50 do begin new(newfrm); newfrm^:=Tform4.Create(nil); newfrm^.Memo1.Text:=inttostr(i); frms[i]:=newfrm; end; for i:=1 to 50 do begin newfrm:=frms[i]; dispose(newfrm); end;Intreb spetzii, deoarece cam se guzeshte compu cind executa, erori parca nu da.