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 X,Y,L: double;
begin
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);}
  L:=1;
  for i:= 1 to 360 do begin
   L:=L+1;
   y:=sin(x);
   X:=Sin(L*pi/180);
   Y:=Cos(L*pi/180);

  Pen.Color:=clGreen;
  Pen.Width:=3;
  Brush.Color:=clRed;
  Ellipse(round(X),round(Y),5,5);
  end;
  //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, 'ss');}
 end;
end;

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

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



end.