Bei TShellTreeView scrollen erkennen

[Flogo]

Habs immer noch nicht verstanden Mein Code sieht jetzt so aus

Code:

procedure TForm1.ShlTree(var Message: TMessage);
begin
  if Message.Msg = WM_VSCROLL then ShowProgress;
  inherited;
end;

aber er sagt schon beim starten "unable to insert item"