ScrollBox Image

Jak przesynąć myszą bitmapę na Inage, która jest pięć razy miejsza od aktywnego okna ScrollBox nie używając belek ScrollBox
Podbnie jak w AutoCad Corel itp.

nie bardzo rozumiem o co ci chodzi....
moze o takie cos:

//glowna deklaracja
var startx,starty:integer;
      draging:boolean;

//teraz zdarzenia image'a
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;

//zaladuj jakis obrazek do image'a i ten timage sprobuj przesuwac po scrollboxie (o ile timage jest na scrollboxie)
//ustaw tez dragmode na manual

Działa ale nie oto chodziło.
Czytam plik WMF, który powiększam lub pomiejsz przesywając image po ScrollBox-ie i np. pomiejszeniu ucieka poza obszar widoczny przez SrcollBox i niemożna go znaleŹć w oknie. Chodziło mi o takie przesuwanie Image by to się ScrollBox ruszał a Image żeby nie ruszał się na ScrollBox. Dzięli temu nieda się Image wysunąc poza obszar widzenie.

Dzięki przykład pomógł. Problem rozwiązałem. Zrobiłem trochę inaczej. Denerwowało mnie mruganie w czasie przesuwania rysunku. Jak to rozwiązałem jest na serwerze
<url> http://4programmers.net/view_file.php?id=1509 </url>

Jak sie pozbyc tego mrugania?? Tego pliku juz nie ma na serwerze :(

DoubleBuffered:=True;

?

Ale gdzie to wpisac??

Gdzies w kodzie...

gdzie, ze gdzies to tez wiem

gdzie, ze gdzies to tez wiem

Ok, wiem juz gdzie sie to wstawia, jezeli obiekt jest Od razu na formie to:
Form1.DoubleBuffered := true;

A jak jest jeszcze na jakims obiekcie to zamiast formy to obiekt, w moim przypadku to jest tak:
ScrollBox1.DoubleBuffered := true;

A teraz drugi problem, scroll box mi zle wyswietla na belkach polozenie obrazka, a zrobilem tak jak jest na gorze napisane.