[Tboy]

Убрал вообще все что связано с edit и точно - проблема в button4. До этого все работало. Что здесь может быть не так(((( не пойму

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (WindowsMediaPlayer1.Controls.currentPosition = 7) then
     WindowsMediaPlayer1.Controls.currentPosition := 0;
     WindowsMediaPlayer1.Controls.play;
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
WindowsMediaPlayer1.Controls.play;
WindowsMediaPlayer1.URL:='E:\777.avi'
end;

end.

MAD: бан за несоблюдение правил оформления кода.