Hallo,
beim Starten sind keine Ampelfarben aktiv (siehe OnCreate: dort versteckst du alle (visible := false).
Versuch doch mal folgendes:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Rot1.visible := true;
timer1.enabled := true;
end;
Ach ja, wenn der Timer-Intervall auf 1000 steht (1000ms = 1s), dann kannst du dir die sleeps sparen (ebenso: Application.ProcessMessages
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<