Zelle teilen

[SaFu]

Hi nochmal ich

also hab jetzt mal den anfang gemacht das ging ja schon

Delphi-Quellcode:

 procedure TForm7.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  col, row: integer;
begin
 StringGrid1.MouseToCell(x, y, col, row);
end;

aber wieso die zelle verschieben und die spalte um 1 erweitern ich möchte doch nur die ausgewählte zelle in zwei teilen so das ich oben und unten was schreiben kann.