Maus Scrollen im StringGrid - Zeilen nicht markiert

[capo]

Hallo
OnMouseWheelUp und OnMouseWheelDown stimmt nur was mach ich damit?

Wenn ich das so mache:

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 StringGrid1.SelectionColor:=clred;
end;

klappt das nicht.

Zitat:

die Bewegung in der Tabelle mit dem Mausrad und den Cursortasten sind natürlich unterschiedlich, wäre ja noch schöner sonst

ich will ja nur die Farbe in der Zeile beim scrollen mit der Maus
Gruss vom capo