Access Violation, TSpeedButton

[shmia]

Zitat von shareholder:

die procedure ist 1200 buttons zugeordnet.

Das ist ja Waaahnsinn ; zu viele Knöpfe.
Aber egal:

Delphi-Quellcode:

procedure TForm1.BtnMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  // zur Sicherheit !!!!!
  // ein "normaler" Button und es knallt
  Assert(sender is TSpeedButton); 
 
  if (ssRight in Shift) then
    with TSpeedButton(Sender).Glyph do
       if Empty then
          LoadFromFile('bild.bmp')
       else
          ShowMessage('hat schon ein bild!');
end;