if befehl - problem

[Wadim]

Zitat von Nightshade:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject); 
begin 
If Speedbutton26.Down then 
  begin 
  IF OpenPictureDialog1.Execute THEN 
    begin 
    speedbutton33.Glyph.LoadFromFile(OpenPictureDialog1.FileName); 
    end 
    else 
    begin  //  <--- Hier fehlt das Begin !!!!!!!!!!!!!!!!!!
    If Speedbutton27.Down then 
      IF OpenPictureDialog1.Execute THEN 
      speedbutton18.Glyph.LoadFromFile(OpenPictureDialog1.FileName); 
    end; 
end;

-----------------

Nightshade

geht noch immer nicht?? ??