Бегущая строка при воспроизведении музыки.

[munthrekosh]

Всем Привет!

Хочу сделать, так что бы при нажатии кнопки «Play», появлялась «бегущая строка» и кнопка меняла «Caption» на «Stop». Но есть проблема, которую я не в силах понять). При нажатии на «Play», она меняет свой «Caption» и строка появляется, но появляется (строка) всего на секунду (точно! ибо через таймер делаю) и тут, же исчезает. При дальнейших манипуляциях с кнопками ничего не происходит (с бегущей строкой; всё остальное работает нормально). Подскажите в чём проблема!

Вот код на кнопке:

procedure TForm2.Button1Click(Sender: TObject);
begin
  If Button1.Caption='Play'
    then
      begin
        Button1.Caption:='Stop';
        PlaySound('1.wav', 0, SND_ASYNC or SND_LOOP);
      end
    else
      begin
        Button1.Caption:='Play';
        PlaySound('1.wav', 0, SND_PURGE);
      end;
  label6.Visible:= not label6.Visible;
end;

Вот на таймере:

procedure TForm2.Timer1Timer(Sender: TObject);
var
txt: string;
begin
  label1.Caption:=timetostr(time);
  If Button1.Caption='Stop'
    then
      begin
        label6.Caption:=copy(txt,length(txt)-1,1)+copy(txt,1,length(txt)-1)
      end;
end;

[MeTeOpA]

Эм... что то я не вижу

Timer1.Enable
Timer1.Disable

[munthrekosh]

Эм... что то я не вижу

Timer1.Enable
Timer1.Disable

Эм... Ну оно и не нужно.

Проблема уже решена. Я просто забыл txt возвратить...