Jak scrollowacć Image'a?

Problem może i błachy, ale nie mogę sobie z tym poradzić. Chodzi mi konkretnie o srollowanie Imaga.

normalnie chyba sie nie da (nie probowalem wklepwac kodu w kazdym razie), ale jest inny sposob. mianowicie kladziesz ScrollBox'a na forme, na niego kladziesz Image i ustawiasz wlasciwosc AutoSize tego Image na True.

ja to mam na scrollboxie, ale na zwyklej formie tez powinno zadzialac, moze Ci sie przyda.
(ustaw autosize na true)

var startx,starty:integer;
      draging:boolean;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
begin
startx:=x;
starty:=y;
draging:=true;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if draging then
begin
image1.Left:=image1.Left+(-startx+x);
image1.top:=image1.top+(-starty+y);
draging:=false;
end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if draging then
begin
image1.Left:=image1.Left+(-startx+x);
image1.top:=image1.top+(-starty+y);
end;
end;

dziękuję, udało się. Aż wstyd się przyznać że nie znałem ScrollBoxa [wstyd] .