[Error] Unit6.pas(73): Statement expected but 'PROCEDURE' found

unit Unit6;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls,Ezkiz;
 
type
  TSimplyMech = class(TForm)
    Image1: TImage;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  SimplyMech: TSimplyMech;
 
implementation
uses main;
 
{$R *.dfm}
 
procedure TSimplyMech.FormShow(Sender: TObject);
var
alfa,x01,y01,xA1,yA1:integer;
alfaRad,gamaRad,L,R,Rv,r1,rf,Rf1,rn,ru,m,
x0,y0,xA,yA,xB,yB,xC,yC,xE,yE,xP,yP,
xK,yK,xD,yD,xN,yN,xM,yM:real;
begin
 Image1.Canvas.MoveTo(10,10);
 Image1.Canvas.LineTo(200,200);
 
{1}
Image1.Canvas.FillRect(Rect(0,0,Image1.Width,Image1.Height));
{2}
alfaRad:=Pi*alfa/180;
gamaRad:=Pi*gama(alfa)/180;
{3}
xA:=250; yA:=200;
xB:=xA-round(r1*sin(alfaRad));
yB:=yA+round(r1*cos(alfaRad));
xC:=xA+round(r1*sin(alfaRad));
yC:=yA-round(r1*cos(alfaRad));
x0:=xA;
y0:=yA+L;
xE:=x0-round(R*sin(gamaRad-90));
yE:=y0-round(R*cos(gamaRad-90));
xD:=x0+round(R*sin(gamaRad-90));
yD:=y0+round(R*cos(gamaRad-90));
 
xM:=x0+xD;
yM:=yE;
xN:=x0+round(sqrt(sqr(xE-x0)-sqr(yE-x0)));{xN:=xO+OE}
yN:=y0;
 
xK:=xE;
yK:=yD;
xP:=x0-round(sqrt(sqr(xE-x0)-sqr(yE-x0)));{xP:=xO-OE}
yP:=x0;
{4}
x0:=x01;
y0:=y01;
Opora(Image1,x01,y01,300);
xA:=xA1;
yA:=yA1;
Opora(Image1,xA1,yA1,270);
{5}
Image1.Canvas.Pen.Width:=3;
procedure Kulisa (xB,yB,xA,yA,(2*r)); здесь ошибка ([Error] Unit6.pas(73): Statement expected but 'PROCEDURE' found)
 
 
end;
 
end.