Von Pointern und Timern (Problem mit Sender)

[mytar]

Ich denke so:

Delphi-Quellcode:

procedure TDummy.KillDummy(Sender: TObject); 
var
  pDummy: Data; 
begin 
while DummyList.Count > 0 do
  begin 
   pDummy := DummyList[0]; 
   if Sender is pDummy^.tmrDestroy then 
    begin 
     pDummy^.tmrDestroy.Enabled := False; 
     FreeAndNil(pDummy^.tmrDestroy);
     with DummyList do
       Delete(IndexOf(pDummy)); 
     Dispose(pDummy); 
    end; 
  end; 
end;