[Rosenkrantz]

Код:

constructor Tpeshka.CreateFigura(col:TCol; vid:TImage;i,j:integer);
var 
  s:string;
begin
  s:=Self.ClassName;
  create;
  vid:=TImage.Create(MainForm);
  vid.Picture.LoadFromFile('');
  mesto.X:=i; ////////////////////////////////////
  mesto.Y:=j; ////////////////////////////////////
end;

Либо объявите свойства X и Y отдельно, либо присваивайте значение так

Код:

   ...
   mesto := Point(i, j);
   ...

Ну и, чтобы два раза не вставать, зачем вы передаете в конструктоh параметр vid, если вы все равно его создаете внутри конструктора? Может вы хотите его использовать потом вне конструктора - но тогда нужно передавать его по ссылке, иначе он просто бесполезен.