var
  l : farpointer;
begin
  l:=ptr(0,0);
end.