Code Optimierung zu ".. is <type>"

[Blup]

Ich bevorzuge diese Variante:

Delphi-Quellcode:

procedure TuAllesMögliche(Sender: TObject);

  procedure TuWasMitLabel(ALabel: TLabel);
  begin
    if pos('||', ALabel.Caption) = 0 then
    begin
      ....
      ALabel.Caption := ALabel.Caption + ' || ' + s;
    end;
  end;

begin
  if Sender is TLabel then
    TuWasMitLabel(TLabel(Sender));
end;