unit mGesicht1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; procedure FormCreate(Sender: TObject); private { Private-Deklarationen } public { Public-Deklarationen } end; var Form1: TForm1; zwinkern : boolean; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin with image1.Canvas do begin Pen.Width := 6; Ellipse(30,30,170,170); Pen.color := clblue; Ellipse(70,70,75,75); Ellipse(125,70,130,75); Pen.color := clblack; MoveTo(100,90); lineto(100,110); Pen.color := clred; MoveTo(85,130); lineto(115,130); end; zwinkern := true; end; end; end.