Delphi4 Spalte im StringGrid markieren

Hallo Delphianer,
ich möchte in einem StringGrid auf den Spaltenkopf klicken und dann sollen die darunter liegenden Zellen nur in der entsprechenden Spalte markiert sein. Ich habe schon die Online-Hilfe zu ‚TCustomGrid.Selection‘ gelesen, aber nicht verstanden.
Hättest Du eine Lösung und vielleicht ein Beispiel für mich ?
MfG.
Uwe

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var ACol, ARow: Integer;
R: TGridRect;
begin
with Sender as TStringgrid do
begin
MouseToCell(X,Y,ACol,ARow);
if ARow0 then Exit;
if ACol