Delphi. Компонент Memo.

[armchair]

Попрошу не удалять мой пост,знаю, что эту задачу я уже кидал:

Выяснить есть в каждой строке файла буквы для слова “month”. Результат поместить в новый файл в виде: “1” - true; “2” - false; и т.д. (1, 2...номера строк, true - есть, false - если нет)

Форма должна содержать 2 компонента Memo: первый компонент должен быть использован при чтении исходного файла, второй компонент при записи преобразованного файла.

unit Lab4Un;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    Memo2: TMemo;
    Label3: TLabel;
    function reform(s:string):string;
    procedure FormCreate(Sender: TObject);
    procedure Memo1Click(Sender: TObject);
    procedure Memo2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('f.txt');
Memo2.Visible:=false;
Label2.Visible:=false;
Label3.Visible:=false;
end;

procedure TForm1.Memo1Click(Sender: TObject);
var s:string;
    k, i:integer;
begin
k:=Memo1.Lines.Count;
Memo2.Clear;
i:=0;
    while i<k do begin
      s:=Memo1.Lines.Strings[i];
      s:=reform(s);
      Memo2.Lines.Add(s);
      i:=i+1;
    end;
Label2.Visible:=true;
Memo2.Visible:=true;
end;

procedure TForm1.Memo2Click(Sender: TObject);
begin
 Memo2.Lines.SaveToFile('g.txt');
 Label3.Visible:=true;
end;

function TForm1.reform(s:string):string;
var Len, i:integer;
  begin
    len:= length(s);

    reform:=s;
end;

end.

Это уже правильный созданный шаблон для программы, нужно только правильно составить функцию под мою задачу, чтобы программа работала.(Там, где function TForm1.reform(s:string):string Помогите, пожалуйста.

[Mad_Cat]

function YES(s:string):boolean;
var m:set of char ;
i:Integer;
begin
m:=['m','o','n','t','h'];
for i:=1 to Length(s) do
if s[i] in m then m:=m-[s[i]];
Yes:= m=[];
end;