Réponse acceptée !
salut,
je pense que tu dois utiliser les propriété left top width et height de l'image et de la form
je n'ai pas le code sous la main mais le principe est le suivant:
dans l'évènement onmouse down de l'image tu mets un flag qui mémorise l'action
dans l'évènement on mousemove tu récupère le déplacement de la souris et tu mets à jour les propriétés width et height de la fenetre et les propriétés  top et left de l'image
dans le onmouseup tu reset le flag

@+
jlen

Réponse acceptée !
essaye çà

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    image1.Tag:=1;
    old.X:=X;old.Y:=Y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
   if  image1.Tag=0 then exit;
   with  TForm1 do
   begin
       Height:= Height+Y-old.Y;
       Width:= Width +X-old.X;
   end;
   with  Image1 do
   begin
       top:= top+ Y-old.Y;
       left:=left+X-old.X;
   end;

end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    image1.Tag:=0;

end;
 je n'ai pas mis de controle de validité en particulier si tu réduit trop la fenêtre
@+
jlen