Как изменять размер формы по зажатии image1.

[blackstersl]

Всем привет, помогите плиз: есть на форме image1 form1.bordersyyle := bsnone; как можно изменять размер form1 с помощью image 1; спасибо.

[Stilet]

Что то я не понял задачи...

[blackstersl]

зажимаем кнопкой мыши image1 и куда перетащим курсор, такова будет и ширина/высота формы.

[Stilet]

Что-то типа такого что ли?

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Image1.Tag:=234;ax:=x;ay:=y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Image1.Tag=234 then begin
 Width:=Width+(x-ax);
 Height:=Height+(y-ay);
end;
end;

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

[blackstersl]

Спасибо большое.