Zellen verbinden

[Razor90]

Ich möchte nun zwei Zellen di untereinander sind miteinander verbinden. Ich habe folgenden Code gefunde:

Delphi-Quellcode:

   If gdFixed In State Then Exit;
     If ARow > 1 Then Exit;  }
     with sender as tstringgrid do begin
     If aCol < Pred(ColCount) Then
      Rect.Right := Rect.Right + 2 GridlineWidth;
    y:= Rect.Top +2;
    x:= Rect.Left +2;
    for i:= 1 to aCol-1  do
      x:= x - ColWidths[i] - GridlineWidth;

   end;

wie muss ich diesen nun umändern um mein problem zu lösen?