unit MainFrm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TMainForm = class(TForm)
    Memo: TMemo;
    Button1: TButton;
    dlgOpen: TOpenDialog;
    LB: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function CheckWord(const aWord: string): boolean;
    function CheckLetter(aLetter: Char): boolean;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses
  System.Diagnostics;

{$R *.dfm}

 //q, w, e, r, t, a, s, d, f, g, z, x, c, v, b

const
  WrongLetters: array[0..10] of Char = 'hijklmnopuy';

{ TForm1 }

procedure TMainForm.Button1Click(Sender: TObject);
var List: TStringList;
  i, f: Integer;
  SW: TStopWatch;
begin
  if dlgOpen.Execute() then
  begin
    f := 0;
    List := TStringList.Create;
    try
//      Memo.Clear;
//      Memo.Lines.BeginUpdate;
      LB.Clear;
      LB.Items.BeginUpdate;
      try
        List.LoadFromFile(dlgOpen.FileName);
        SW := TStopWatch.StartNew;
        for i := 0 to List.Count - 1 do
          if CheckWord(List[i]) then
            LB.Items.Add(List[i])
//            Memo.Lines.Add(List[i])
          else inc(f);
        SW.Stop;
        Caption := IntToStr(LB.Items.Count) + ' слов, отброшено ' + IntToStr(f) + ', ' +
          IntToStr(SW.ElapsedTicks div 10000) + ' мсек';
      finally
//        Memo.lines.EndUpdate;
        LB.Items.EndUpdate;
      end;
    finally
      List.Free;
    end;
  end;
end;

function TMainForm.CheckLetter(aLetter: Char): boolean;
var
  i: Integer;
begin
  Result := True;
  for i := Low(WrongLetters) to High(WrongLetters) do
    if aLetter = WrongLetters[i] then
    begin
      Result := False;
      Break;
    end;
end;

function TMainForm.CheckWord(const aWord: string): boolean;
var
  i: Integer;

begin
  Result := True;
  for i := 1 to Length(aWord) do
  if not CheckLetter(aWord[i]) then
  begin
    Result := False;
    Break;
  end;
end;

end.