procedure Tformimview.Shape1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
if(X >= formimview.Shape1.Width - (1)) or (Y >= formimview.Shape1.Height - (1)) then
begin
shape1.Pen.Color:= $00A900E7;
Cursor:= crHSplit;
AuthorizedReSize:= True;
end
else
begin
Shape1.Pen.Color := clBlack;
Cursor := crDefault;
AuthorizedReSize:= false;

end;
if(AuthorizedReSize) then
begin
shape1.Width := Shape1.Width + (X)-(wX);
Shape1.Height := Shape1.Height + (X)- (yH);
end;
end;

procedure Tformimview.Shape1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
wX:= X;
yH := Y;
end;