Componentes.Terceros.jvcl/official/3.00/examples/RaLib/RaInterpreter/samples/sample - test1.pas

var
  B : TControl;
  P: TPoint;
begin
  P := Point(0, 0);
  B := Application.FindComponent('Test').ClientToScreen(P);
  Result := B.X;
end;