Tagesplaner mit TCustomDrawgrid

[mcbain]

Hallo,
ich würde gerne eine Tagesplaner Komponente selbst schreiben.
Sie soll in etwa so aussehen, wie die auf dem Anhang.

Kann mir jemand ein bisschen Hilfestellung geben, wie ich auf mein TCustomDrawGrid ein Event über mehrere Zeilen (Kein MergeCell!) zeichnen kann?
Die einfachste Form wäre wohl in OnDrawCell ein Rect zu zeichnen:
Beispiel für ein Event das in Row 4 beginnt und 3 Rows lang ist:

Code:

  
...
    if (aRow = 4) then
    begin
          slotRect := Rect;  
          slotRect.Height := slotRect.Height * 3;    
          dgr.Canvas.Brush.Color := clRed;
          dgr.Canvas.FillRect(slotRect);
          s := 'Event 1';
          DrawText(dgr.Canvas.Handle, PChar(S), -1, slotRect, DT_CENTER or DT_SINGLELINE or DT_VCENTER);
    end

Allerdings funktioniert das ganze nicht so wie gedacht.
Oder hat jemand ein einfaches Beispiel evtl.?

Hab noch nicht of selbst gezeichnet.
Wäre für jede Hilfe dankbar.
Vielen Dank.
Gruß
mc