[DillerInc]

Господа,имеется следующий код:

Код:

unit AssignFileU;

interface

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

type
  TfmExample = class(TForm)
    Panel1: TPanel;
    bbRun: TBitBtn;
    bbClose: TBitBtn;
    edInput: TEdit;
    lbOutput: TLabel;
    mmOutput: TMemo;
    procedure bbRunClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmExample: TfmExample;

implementation

{$R *.dfm}

procedure TfmExample.bbRunClick(Sender: TObject);
var
 F : TextFile;
 S : String;
begin
  AssignFile(F, 'Passion.srt');
  Reset(F);
while not EOF(F) do
begin
 ReadLn(F,S);
 mmOutput.Lines.Add(S)
end;
 CloseFile(F)
end;

Так вот при прогоне этой программы Delphi выдаёт мне ошибку "Declaration expected but end of file found".
Подскажите,пожалуйста,как это можно исправить и в чём тут дело.