Перемещение и изменение размеров компонентов

[Luchfan12]

unit U6_2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Left:= 0;
Button1.Top:=0;
Form1.Color:=clRed;

end;
end.

Что нужно прописать чтобы при втором щелчке на кнопку она оказалась в правом верхнем углу и чтобы она изменила свой размер?

[Shouldercannon]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Tag = 0 then
  begin
    Button1.Tag := 1;

    Button1.Left := 0;
    Button1.Top := 0;
    Button1.Width := 75;
    Form1.Color := clRed;
  end
  else
  begin
    Button1.Tag := 0;

    Button1.Width := 45;
    Button1.Left := ClientWidth - Button1.Width;
  end;
end;

[Luchfan12]

Спасибо.

unit U6_2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button1.Tag = 0 then
  begin
    Button1.Tag := 1;
    Button1.Left := 0;
    Button1.Top := 0;
    Form1.Color := clRed;
  end
  else
  begin
    Button1.Tag := 0;
    Button1.Width := Button1.Width * 2;
    Button1.Height := Button1.Height * 2;
    Button1.Left := ClientWidth - Button1.Width;
    Form1.Color := clGreen;
  end;
  if Button1.Tag = 1 then
   begin
   Button1.Tag := 2;
    Button1.Top:=ClientHeight-Button1.Height;
    Button1.Left:=ClientWidth-Button1.Width;
    Form1.Color := clYellow;
   end
   else
   begin
   Button1.Tag := 1;
    Button1.Width := Button1.Width * 3;
    Button1.Height := Button1.Height * 3;
    Button1.Left :=0;
    Button1.Top:=ClientHeight-Button1.Height;
    Form1.Color := clGreen;
   end;
end;
end.

Начал прописывать чтобы при третьем щелчке на кнопку она оказалась в правом нижнем углу и то же самое прописал для четвертого щелчка, но у меня выходит не совсем то что нужно.Что нужно исправить?

[Shouldercannon]

Пока единственное, что пришло на ум.

var
  Form1: TForm1;
  i: Integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  case i of
  0: begin
    Button1.Width := 75;
    Button1.Height := 25;
    Button1.Left := 0;
    Button1.Top := 0;
    Form1.Color := clRed;
  end;

  1: begin
    Button1.Width := Button1.Width * 2;
    Button1.Height := Button1.Height * 2;
    Button1.Left := ClientWidth - Button1.Width;
    Form1.Color := clGreen;
  end;

  2: begin
    Button1.Top := ClientHeight - Button1.Height;
    Button1.Left := ClientWidth - Button1.Width;
    Form1.Color := clYellow;
  end;

  3: begin
    Button1.Width := Button1.Width * 3;
    Button1.Height := Button1.Height * 3;
    Button1.Left := 0;
    Button1.Top := ClientHeight - Button1.Height;
    Form1.Color := clGreen;
  end;

  end;

  Inc(i);
  if i >= 4 then i := 0;
end;

[Luchfan12]

Cпасибо большое!