Delphi-Anfänger - Was mache ich mit diesem if-Satz falsch?

[youuu]

Was bekommst du denn als Fehler?

Kleiner Tipp nebenbei

Delphi-Quellcode:

if
imAmpelRot.Visible=True

then

teste niemals auf True oder False wie du es machst sondern so

Delphi-Quellcode:

if imAmpelRot.Visible then
Begin
  ...
end

SieheHier

Edit: ebenso vergisst du ";" zu setzen zwischen deinen Begin und End's

Delphi-Quellcode:

then begin
ImAmpelGruen.Visible:=False;                 <<< besser
ImAmpelGelb.Visible:=True;
end

[DELPHI]

Delphi-Quellcode:

procedure TForm1.AmpelUmschaltenClick(Sender: TObject);
begin
  if imAmpelRot.Visible then 
  begin
    imAmpelRot.Visible:= False;
    imAmpelRotGelb.Visible:= True;
  end
  else if imAmpelRotGelb.Visible then 
  begin
    imAmpelRotGelb.Visible:=False;
    imAmpelGruen.Visible:=True;
  end
  else if ImAmpelGruen.Visible then 
  begin
    ImAmpelGruen.Visible:=False;
    ImAmpelGelb.Visible:=True;
  end
  else
  Begin
    ImAmpelGelb.Visible:=False;
    ImAmpelRot.Visible:=True;
  end;
end;