unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure Draw();
var i:integer;
Var R: integer;
begin
i:=10;
with Form1.Image1.Canvas do begin
  brush.Color:=clForm;
  FillRect(0, 0, Form1.Image1.Width, Form1.Image1.Height);

  {Pen.Color:=clGreen;
  Pen.Width:=3;
  Brush.Color:=clRed;
  EllipseC(50,75,25,25);}

  for i:= 1 to 360 do begin
  R:=Sin(i);
  Pen.Color:=clGreen;
  Pen.Width:=3;
  Brush.Color:=clRed;
  EllipseC(50+R,150+i,25,25);
  end;

  {Pen.Color:=clBlack;
  Pen.Width:=50;
  Line(10, 120, Form1.Image1.Width-10, 120);}

  {Brush.Color:=clForm;
  Font.Color:=clBlue;
  Font.Name:='Courier';
  Font.Size:=30;
  Font.Style:=[fsBold];
  TextOut(60,150, 'risunok');}
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Draw();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;



end.