Количество прочитанных слов

unit ustroka;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
  { TForm1 }
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
  ft:textfile;
  Ms:array[1..100] of string;
  s:string;
  kols:integer;
implementation
{$R *.lfm}
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
    form1.Memo1.Clear;
    form1.Memo2.Clear;
    form1.Edit1.Clear;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
      Assignfile(ft,'flow.txt'); // файл цветов мы создали
      Reset(ft);   //   Открытие файла на чтение:
      K:=0;        // количество строк; s- строка
    While not eof(ft) do  // чтение, пока не конец файла
    Begin
        Readln(ft,s);           //       - чтение строки в s
      //  If eof(ft) then break;  //       - прерывание цикла по концу файла
        Inc(k);                 //       - увеличение счетчика на 1
       Ms[k]:=s;                //       - запись в массив
       Form1.Memo1.Lines.Add(s); //      - запись в Memo
    End;
    closefile(ft);       // - закрытие файла
    Kols:=k;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var st:string;
    i,n:integer;
begin
      St:=Form1.Edit1.Text; // - выбираем буквосочетание из Edit
    Form1.Memo2.Clear;      // - очищаем Memo2
    For i:=1 to kols do
    Begin
       n:=pos(st,ms[i]);  // - если n<>0, то n равно номеру позиции буквосочетания
       If (n<>0) then
       Begin
          Form1.Memo2.Lines.Add(ms[i]); // - заносим слово в Memo2
       End;
    End;
 
end;
 
 
end.

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
//В момент создания формы очищаем все поля ввода
procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Lines.Clear;
 Memo2.Lines.Clear;
 Edit1.Clear;
end;
 
//Загружаем файл в Мемо1 и считаем количество прочитанных слов
//которое = числу строк файла
procedure TForm1.Button1Click(Sender: TObject);
var n: integer;
begin
 Memo1.Lines.LoadFromFile('flow.txt'); //Сюда подставите нужное имя файла, лучше всего с путем
 n := Memo1.Lines.Count; //Получили количество строк = количеству слов
 Memo1.Lines.Add('Прочитано слов: ' + IntToStr(n)); //Добавили в Мемо1 информацию о количестве прочитанных слов
end;
 
//Ищем буквосочетания
procedure TForm1.Button2Click(Sender: TObject);
var i, n: integer;
begin
//Проверим, ввели что-то в поле ввода или нет. Если нет - ругаемся и выходим
  if Length(Trim(Edit1.Text)) = 0 then
   begin
     ShowMessage('Не введено буквосочетание для поиска!');
     Exit;
   end;
  n := 0;
//Ищем нужное буквосочетание во всех строках файла
//если найдено - копируем строку м Мемо2
  for i := 0 to Memo1.Lines.Count - 1 do
   if Pos(Edit1.Text, Memo1.Lines[i]) > 0 then Memo2.Lines.Add(Memo1.Lines[i]);
  n := Memo2.Lines.Count;  //Считаем, что у нас получилось
  Memo2.Lines.Add('Отобрано слов: ' + IntToStr(n)); //Добавляем информацию в Мемо2
end;
 
end.