Adding an operator to TPoint

[User137]

Or, drawing procedure will accept with typecast as long as record contains same or same length information as the other:

[pascal]type
TMyPoint = record
x,y: integer;
end;

var p: TMyPoint;
begin
...Draw(TPoint(p), ...);
end;[/pascal]