Delphi-Quellcode:
procedure TForm3.Timer1Timer(Sender: TObject);
begin
if L1.Visible then
begin
L1.visible := false;
Image1.Visible:= false;
Image2.Visible:= true;
L2.Visible:= true;
end;
application.processmessages; // <<<<<<<< Erweitern!!
end;
man muß dem Programm auch die Chance geben Änderungen anzuzeigen.
Und mit F4 (Debugger)in die Timer-Methode gehen ob sie überhaupt aufgerufen wird.
Gruß
K-H