as <Typ> impliziert is <Typ>. Wenn Du diese Überprüfung manuell ausführst kannst Du auch einen harten Cast ausführen.
Delphi-Quellcode:
if ( ASender is TButton ) then
begin
LBtn1 := TButton(ASender); // Ist der Zugriff immer Valide, wenn der "is" operator True geliefert hat ?
end;