if time.visible then begin time1.visible:=true; time.Visible:=false; end else begin time1.visible:=false; time.Visible:=true; end;