[Delphi] ';' expected but '.' found как решить?

[Kolyana31]

При написании кода для решения функции столкнулся с проблемой ';' expected but '.' found и решение как таковое найти не могу. Код выглядит так

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    procedure Form1Create(Sender:Tobject) ;
    procedure Button1Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}
   procedure TForm1.Form1Create(Sender: TObject);
   procedure TForm1.Button1Click(Sender: TObject);
var
   x,y,s:Real;
   begin
     x:=StrToFloat(Edit1.Text);
     y:=StrToFloat(Edit2.Text);
     s:=5*sin(x*x)-0.5*cos(y*y)
     Label5.Font.Color:=clBlack;
     Label5.Caption:='Результат:'+#13+'Значение функции S'+#13+'S='+floatTostr(s)
   end;
   end.

[eoln]

procedure TForm1.Form1Create(Sender: TObject);

Строка лишняя

[newerow1989]

Сообщение от Kolyana31

s:=5*sin(x*x)-0.5*cos(y*y)

Точку с запятой в конце ставить надо

Сообщение от eoln

Строка лишняя

ДВЕ строки лишние