procedure ClickIt( poWinControl : TWinControl );
var
  liX,
  liY : Integer;
begin
  liX := 1;
  liY := 100;
  SendMessage( poWinControl.Handle, WM_LBUTTONDOWN, 0, ( liY shl 16 ) + liX );
end;

이렇게 하면 됩니다.
간단한 거니까 설명은 필요 없을듯 하네요. ^^;;