Problem bei der Bestimmung der Komponente durch Var Sender

[Chewie]

Versuch vielleicht mal einen Typecast des Senders:

Delphi-Quellcode:

procedure TFRVersion.LabelLoeschenClick(Sender: TOBject); 
var i:integer; 
begin 
  for i:=1 to length(Labelfelder) do 
  begin 
    if TLabel(Sender) = Labelfelder[i] 
    then begin  
       ShowMessage('ja'); 
    end; 
  end; 
end;