отсчёт с определённой точки.

[DeKot]

Добавил управление ползунком.

[blackstersl]

Спасибо, но я уже реализовал такую функцию: если кому то интересно как это всё делается в упрошённом виде то вот код:

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm6 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Timer1: TTimer;
    Image3: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  x:integer;

implementation

{$R *.dfm}

procedure TForm6.Timer1Timer(Sender: TObject);
begin
Image2.Left := (mouse.CursorPos.X - form6.Left) - round(Image2.Width div 2);

if Image2.Left < Image1.Left then
 Image2.Left := Image1.Left;

if Image2.Left > Image1.Left + Image1.Width then
 Image2.Left := (Image1.Left + Image1.Width) - Image2.Width ;

 Image3.Width := (Image2.Left - x);

end;

procedure TForm6.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
timer1.enabled := true;
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
Image3.Width := 0;
x := 96;
end;

procedure TForm6.Image2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
timer1.Enabled := false;
end;

end.