Событие image для изменения размеров

Image1.Width:=200;
image1.Height:=200;

Image1.Width:=Image1.Width+200;
image1.Height:=image1.Height+200;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var m:tmouse;
begin
Image1.Stretch := false
 
end;
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Stretch := true
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i : integer;
    r : TRect;
    pt: TPoint;
    b : Boolean;
begin
  GetCursorPos(pt);
  pt := ScreenToClient(pt);
  b := False;
  for i:=0 to Form1.ControlCount-1 do
  begin
    r := Controls[i].BoundsRect;
    if (pt.x >= r.Left) and (pt.x <= r.Right) and
       (pt.y >= r.Top)  and (pt.y <= r.Bottom) then
    begin
      b:=True;
      // через Controls[i].Name он нам доступен
      PlaneteAction:=Controls[i].Name;
      break;
    end;
  end;
end;

procedure TForm1.PlaneteClick(Sender: TObject);
var I:integer;
begin
ShowMessage('Выбран рисунок: '+PlaneteAction);
end;