Eine Procedur für viele Buttons, wie? (gelöst)

[SimonRap]

ok, noch ne kleine frage, hab jetzt:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  If Sender is TButton then
  begin
   (Sender as TButton).Width := (Sender as TButton).Width * 2;
  end;

  If Sender is TBitBtn then
  begin
    (Sender as TBitBtn).Width := (Sender as TBitBtn).Width * 2;
  end;
end;

So weit so gut, wenn ich auf nen Button klicke wird er doppelt so breit
ABER, wenn ich auf nen BitButton klicke wird er viermal so breit!!!
HÄ?
Warum das?

simon