АСОИ, Delphi, много вариантов 2 сем / 1классы / лицо открывает рот и глаза / Unit1

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
xEdit: TEdit;
yEdit: TEdit;
OtkrotButton: TButton;
OtkeyeButton: TButton;
CloserotButton: TButton;
CloseeyeButton: TButton;
CloseBitBtn: TBitBtn;
PerButton: TButton;
procedure FormCreate(Sender: TObject);
procedure CloseBitBtnClick(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure PerButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure OtkrotButtonClick(Sender: TObject);
procedure CloseeyeButtonClick(Sender: TObject);
procedure CloserotButtonClick(Sender: TObject);
procedure OtkeyeButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Fig,Clipbrd;
var
oval:Toval;
faceactiv,face:Tface;
procedure TForm1.FormCreate(Sender: TObject);
begin
xEdit.Text:=IntToStr(5);
yEdit.Text:=IntToStr(5);
oval:=Toval.create(180,40,15,clRed,Form1.Canvas);
face:=Tface.create(100,100,Form1.Canvas);
faceactiv:=face;
end;
procedure TForm1.CloseBitBtnClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
face.show;
face.rot;
end;
procedure TForm1.PerButtonClick(Sender: TObject);
begin
face.move(StrToInt(xEdit.Text),StrToInt(yEdit.Text))
end;
procedure TForm1.OtkrotButtonClick(Sender: TObject);
begin
face.otkrytrot;
face.rot;
ShowMessage('Хочу кушать');
end;
procedure TForm1.CloseeyeButtonClick(Sender: TObject);
begin
face.podmignut;
face.show;
face.rot
end;
procedure TForm1.CloserotButtonClick(Sender: TObject);
begin
face.show;
face.rot
end;
procedure TForm1.OtkeyeButtonClick(Sender: TObject);
begin
face.normeyes;
face.show;
face.rot
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
oval.Free;
face.Free;
end;
end.