procedure TForm1.Button1Click(Sender: TObject);
begin
height := height div 2;
width := width div 2;
end;