[ALexandr555]

Код:

procedure TfrmMyBrowser.TrackBar2Change(Sender: TObject);
begin
TrackBar2.Max := TrackLength;
MediaPlayer1.Position := MediaPlayer.Position + 1;
end;

неопознает выделеенное красным Undeclared identifier