g1one

unit Unit3;

interface

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

type
TForm3 = class(TForm)
Memo1: TMemo;
Memo2: TMemo;
Memo3: TMemo;
Memo4: TMemo;
ListBox1: TListBox;
CheckBox1: TCheckBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Case flag of
false: Memo1.Left:=Form1.Left-5;
true: Memo1.Width:=Form1.Width-5;
end;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
Case flag of
false: Memo1.Top:=Form1.Top+5;
true: Memo1.Height:=Form1.Height+5;
end;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
Case flag of
false: Memo1.Left:=Form1.Left+5;
true: Memo1.Width:=Form1.Width+5;
end;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
Case flag of
false: Memo1.Top:=Form1.Top-5;
true: Memo1.Height:=Form1.Height-5;
end;
end;

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm3.ListBox1Click(Sender: TObject);
begin
var flag of
сase ListBox1.ItemIndex of
0: flag:=false;
1: flag:=true;
end;
end;

end.
Вот что я смог сделать) Ошибку выдает case flag of