Создайте приложение, при выполнении которого на экране появляется окно формы с кнопкой большого размера.
На кнопке должна быть надпись "Размер".
Затем, при нажатии на кнопку, высота и ширина кнопки должны уменьшиться в 2 раза по сравнению с первоначальными размерами кнопки, при следующих нажатиях – в 3 раза, затем в 4 раза, затем высота и ширина кнопки должны принять первоначальные размеры, затем снова должны уменьшиться в 2, 3, 4 раза, снова принять первоначальные размеры и т.д..
Ниже кнопки должна, кроме того, всегда должно находиться текстовое поле Edit с текстом в виде числа, указывающего, какую часть (1, 1/2, 1/3 или 1/4) текущие размеры кнопки составляют от первоначальных. Это текстовое поле должно находиться близко к нижнему краю кнопки на неизменном расстоянии от нее.
При выполнении щелчка в области формы кнопка должна принять первоначальные размеры.
честно пыталась сделать сама, смогла только маленький кусочек, дальше не могу
. вот что написала, если глупость, не смейтесь пжлста 
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Height:=Button1.Height div 2;
Button1.Width:=Button1.Width div 2;
begin
if (Button1.Height=Button1.Height div 2) and (Button1.Width=Button1.Width div 2) then
begin
Button1.Height:=Button1.Height div 3;
Button1.Width:=Button1.Width div 3;
end
else if ( Button1.Height=Button1.Height div 3) and ( Button1.Height=Button1.Height div 3) then
begin
Button1.Height:=Button1.Height div 4;
Button1.Width:=Button1.Width div 4;
end
else if ( Button1.Height=Button1.Height div 4) and (Button1.Width=Button1.Width div 4) then
else
begin
end;
end;
end;
end.