Programm macht nicht was es soll!!!

[Darty]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin
if ImSun.Visible And not ImMoon.visible then // Wemm Sonne aber kein Mond
  begin                        
  ImSun.Visible:=False;  // dann Sonne aus und Mond an      
  ImMoon.Visible:=true;        
  end 
else
  begin 
  if ImMoon.visible And Not ImSun.visible then // Wenn Mond aber kein Sonne
    begin 
    ImSun.Visible:=True;  // dann Sonne an und Mond bleibt an    
    end 
  else                         
     begin 
     if ImMoon.visible And ImSun.visible then // Wenn beide sichtbar
       begin                  
       ImMoon.Visible:=False; // Dann Mond aus
       end 
  end 
end 
end; 

end.

So wie Du es gemacht hast passiert folgendes:
1. Wenn Sonne an und Mond aus, dann Sonne aus und Mond an.
2. Wenn Mond an und Sonne aus, dann Sonne an und Mond bleibt an.
3. Wenn Mond an und Sonne an, dann Mond aus und Sonne bleibt an.

Was ist jetzt genau Dein Problem ?