1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

function isCellSelected(stringgrid: tstringgrid; x,y: longint): boolean;
begin
  result := false;
  try
    if (x >= stringgrid.selection.left) and (x <= stringgrid.selection.right) and
       (y >= stringgrid.selection.top)  and (y <= stringgrid.selection.bottom) then
      result := true;
  except
  end
end;

function TBuchMain.ConnectOpOff:boolean;
var rueckgabe : boolean;
begin
  try
    Server := CreateOleObject('com.sun.star.ServiceManager');
    Desktop := Server.createInstance('com.sun.star.frame.Desktop');
    rueckgabe := true;
    showmessage('OpenOffice ist verfügbar (ConnectOpOff) ');
  except
    rueckgabe := false;
  end;
  result := rueckgabe;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

const
  ServiceManagerClassName = 'com.sun.star.ServiceManager';
  DesktopClassName = 'com.sun.star.frame.Desktop';

type
  TStringGridHelper = class helper for TStringGrid
  public
    function IsCellSelected(X, Y: Integer): Boolean;
  end;

function TStringGridHelper.IsCellSelected(X, Y: Integer): Boolean;
var
  Selection: TGridRect;
begin
  Selection := Self.Selection;
  Result := (X >= Selection.Left) and (X <= Selection.Right) and
            (Y >= Selection.Top) and (Y <= Selection.Bottom);
end;

function TBuchMain.Connect: Boolean;
var
  Server, Desktop: Variant;
begin
  try
    Server := CreateOleObject(ServiceManagerClassName);
    Desktop := Server.CreateInstance(DesktopClassName);
  except
    on E: EOleError do
      Exit(False);
  end;
  FServer := Server;
  FDesktop := Desktop;
  Result := True;
end;