[Pyro]

еще класс объявить забыл
type
txy = class
public
x, y: Integer;
end;