Event einem bestimmten control zuweisen

[EWeiss]

Ich erstelle eine CallBack..

Delphi-Quellcode:

type
  TVScrollBarState = (OnChange = 0, OnScroll = 1);
  TVScrollBarEvent = procedure(NewState: TVScrollBarState; Value: Integer); stdcall;

var
  VScrollEventCallback: TVScrollBarEvent;

...
  procedure LVScrollBarCallBack(NewState: TVScrollBarState; Value: Integer); stdcall;

Delphi-Quellcode:

procedure TSkinVScrollBar.SetVScrollBarCallBack(callback: TVScrollBarEvent); stdcall;
begin
  VScrollEventCallback := callback;

end;

Delphi-Quellcode:

if (assigned(VScrollEventCallback)) then
  VScrollEventCallback(OnChange, Trunc(FTmpVal));

Initialisierung..

LVScrollBar.SetVScrollBarCallBack(LVScrollBarCallBack);

Alles kein Problem solange ich keine 2 Listen auf der Form habe.
Weil durch die erneute zuweisung die CallBack für die vorher erstellte Liste nicht mehr gültig ist.

Wie kann ich das problem beheben ?

gruss