procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender IS TSpeedButton then halt; // ha SpeedButtont nyomtunk
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender AS TButton = Button1 then halt; // ha Button1-t nyomtunk. Hiba, ha nem TButtontól jött a hívás
end;

if Sender IS TListBox then TListBox(sender).Items.Add('xakk');