Код:
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, если вы все равно его создаете внутри конструктора? Может вы хотите его использовать потом вне конструктора - но тогда нужно передавать его по ссылке, иначе он просто бесполезен.