1:
2:
3:
4:
5:
6:

<h1>Eine MIDI-Datei</h1>

<object width="267" height="175"
        classid="CLSID:05589FA1-C356-11CE-BF01-00AA0055595A">
  <param name="filename" value="ritmo.mid">
</object>					

1:
2:
3:

library ColorGridXControl1;
unit ColorGridImpl1;
unit ColorGridXControl1_TLB;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

// *********************************************************************//
// In dieser Typbibliothek deklarierte GUIDS . Es werden folgende
// Präfixe verwendet:
//   Typbibliotheken     : LIBID_xxxx
//   CoClasses           : CLASS_xxxx
//   DISPInterfaces      : DIID_xxxx
//   Nicht-DISP-Schnittstellen: IID_xxxx
// *********************************************************************//
const
  // Haupt- und Nebenversionen der Typbibliothek
  ColorGridXControl1MajorVersion = 1;
  ColorGridXControl1MinorVersion = 0;

  LIBID_ColorGridXControl1: TGUID = '{3F3C9361-5E82-4214-9E9B-6B646BB65909}';

  IID_IColorGridX: TGUID = '{FAE87AF3-6C63-41ED-9753-7D54CBD66AF9}';
  DIID_IColorGridXEvents: TGUID = '{F1F6A46F-374A-4622-9D99-87FCD9BAC39E}';
  CLASS_ColorGridX: TGUID = '{58B0C4EA-690D-4DFB-8040-A31E3D1D9699}'; // Da isse					

1:

TargetCell.BgColor = ColorGrid.ForegroundColor;