Создать класс(Delphi)

[BDA]

Play, Pause, Stop, Prev, Next - это не классы, а методы (но я не силен в формулировках).
Как я себе представляю, мы создаем класс предок TMediaPlayer, у которого есть переменная типа TrackBar. Тогда, если переменной присвоен объект, то метод будет менять его, а если нет, то не будет
Ну вот как idhttp, к которому подключается idcookiemanager.

[blondino4ka_milk]

у меня в голове каша, не понимаю уже ничего
делаю в другом модуле или как там правильно называется Unit2
так там переменных надо кучу добавлять функции всякие, а хотела то одну процедуру добавить по клику перемещение TrackBara

unit Unit2;

interface

uses MPlayer, SysUtils;

type

  TMediaPlayer = class(MPlayer.TMediaPlayer)
  private
	mp3Folder: string;

  public
    tmr:boolean;
  procedure TrackBar;
  end;
implementation
procedure TMediaPlayer.TrackBar;
begin
       if not(tmr) then mpPlay.Position:=TrackBar.Position;

end;

end.

я хочу сделать отдельным модулем Unit2, потом обращаться с Unit1 т.е.

unit Unit1;

interface

uses Unit2
var
TMediaPlayer:TMediaPlayer;
  frmPlay: TfrmPlay;
   tmr:boolean;
implementation

или как? не понимаю ничего
нужно хотя бы один классик малюсенький пару переменных может, процедурку одну

[BDA]

А вы можете выложить работающий проект, который еще не подвергался изменениям?
Чтобы желающие могли его поковырять

[blondino4ka_milk]

Мой исходник

[blondino4ka_milk]

Это не класс получается? или класс тока сделать обращение с Unit1?

unit Unit2;

interface

uses
  StdCtrls, MPlayer;

type

    TProgressBar = class (TObject)
    mpPlay: TMediaPlayer;
    TrackBar: TScrollBar;
  private
    tmr:boolean;
  public

    constructor Create;
    destructor Destroy;override;



    procedure TrackBarChange;
end;

implementation

constructor   TProgressBar.Create;

begin

end;


destructor TProgressBar.Destroy;
begin

end;

procedure TProgressBar.TrackBarChange;
begin
       if not(tmr) then mpPlay.Position:=TrackBar.Position;

end;

[blondino4ka_milk]

Нашла сейчас в интернете исходник.
Можете посмотреть там нет классов вроде.
Может в нем класс попробовать хотя бы в этом же Unit'e попробовать сделать пару переменых там, процедурку.
Люди добрые помогите пожалуйста.