Как вывести параметры объекта в Memo?

 .....
TRect = class 
  private
   x0, y0: Integer;
   width, height: Integer;
   color : TColor;
   dragok : Boolean;
   Map_X, Map_Y: Integer;
  public
    constructor Create(_x0, _y0, _MapX, _MapY, w1, h1: Integer; _Color:TColor; _dragok:Boolean);
    Procedure Draw(Im:TImage; Bm:TBitmap;x:Integer;y,MapX,MapY:Integer); //Прорисовка
  end;
.....
var
ImPic : TBitmap;
  PicList: TObjectList;
  rect : TRect;
.....
constructor TRect.Create(_x0, _y0, _MapX, _MapY, w1, h1: Integer;
  _Color: TColor; _dragok: Boolean);
begin
  x0 := _x0;
  y0 := _y0;
  width := w1;
  height := h1;
  color := _Color;
  dragok := _dragok;
  Map_X := _MapX;
  Map_Y := _MapY;
end;
 
procedure TRect.Draw(Im:TImage; Bm: TBitmap; x, y, MapX, MapY: Integer);
begin
  Map_X := MapX;
  Map_Y := MapY;
  Im.Canvas.Draw(x,y,Bm);
end
.....
procedure TForm1.Button1Click(Sender: TObject);
var i,j,x,y:Integer;
begin
x := Random(100);
y := Random(100);
 rect := TRect.Create(x,y,0,0,50,50,clBlue,false);
 rect.Draw(Image1,ImPic,x,y,0,0);
 PicList.Add(rect);
 Memo1.Lines.Clear;
 for i := 0 to PicList.Count-1 do
 begin
//Не работает
   Memo1.Lines.Add('x='+IntToStr(PicList.Items[i].x0));
 end;
end;

    ImPic.LoadFromFile(ExtractFileName(OpenPictureDialog1.FileName));

TPic = class 
  private
   p:TPoint;
   width, height: Integer;
   color : TColor;
   dragok : Boolean;
   ImPic : TBitmap;
   str : String;
  public
    constructor Create(APt:TPoint; _str:String; _Color:TColor; _dragok:Boolean);
  end;
.....
constructor TPic.Create(APt:TPoint; _str:String; _Color: TColor; _dragok: Boolean);
begin
  ImPic := TBitmap.Create;
  ImPic.LoadFromFile(_str);
  p:=APt;
  str := _str;
  width := ImPic.Width;
  height := ImPic.Height;
  color := _Color;
  dragok := _dragok;
end;
......
procedure TForm1.FormDestroy(Sender: TObject);
begin
  Freeandnil(PicList);
end;

destructor Destroy; override;
...
destructor TPic.Destroy; 
begin
  impic.free;
  inherited Destroy;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Freeandnil(PicList);
  PicList.Free;
end;