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

[Timm3r]

Das ist zuerst einmal sehr nett, dass ihr euch alle so eine Mühe gebt mein Problem zu lösen. Ich stell mal den ganzen Quelltext rein, dann ist es euch vielleicht klarer!

u

Delphi-Quellcode:

nit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    AmpelEinschalten: TButton;
    AmpelAusschalten: TButton;
    AmpelUmschalten: TButton;
    ImAmpelRotGelb: TImage;
    ImAmpelRot: TImage;
    ImAmpelGruen: TImage;
    ImAmpelGelb: TImage;
    procedure AmpelEinschaltenClick(Sender: TObject);
    procedure AmpelAusschaltenClick(Sender: TObject);
    procedure AmpelUmschaltenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AmpelEinschaltenClick(Sender: TObject);
begin
        TForm1.AmpelEinschaltenClick.Visible:=False;
        TForm1.AmpelAusschaltenClick.Visible:=True;
        TForm1.AmpelUmschaltenClick.Visible:=True;
        ImAmpelRot.Visible:=True;
end;

procedure TForm1.AmpelAusschaltenClick(Sender: TObject);
begin
        TForm1.AmpelEinschaltenClick.Visible:=True;
        TForm1.AmpelAusschaltenClick.Visible:=False;
        TForm1.AmpelUmschaltenClick.Visible:=False;
        ImAmpelRot.Visible:=False;
        ImAmpelGruen.Visible:=False;
        ImAmpelGelb.Visible:=False;
        ImAmpelRotGelb.Visible:=False;

end;

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;