Zwei zellen quer verbinden

[Razor90]

Hallo, ein neuer Tag, ein neues Problem..
Ich möchte zwei zellen in einer stringgrid verbinden. Aber nur diese beiden Zellen, die nebeneinander sind [1,0] und [2,0].
Habe auch schon rumprobiert, aber leider mir dem ondrawcell keine erfahrung...vll könnt ihr mir weiterhelfen. hier mein ansatz

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
 Rect: TRect; State: TGridDrawState);
var R:TRect;


begin

    if aRow=0 then
    if acol=2 then
   with sender as tstringgrid do begin

      rect.left:= Rect.left-ColWidths[ACol];
    Canvas.Brush.Color := clBtnFace;
    Canvas.Brush.Style := bsSolid;
    Canvas.FillRect( Rect );
  end;
  end;

end.