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
  TForm1 = class(TForm)
    Memo: TMemo;
    Button1: TButton;
    Button2: TButton;
    dlgOpen: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function CheckWord(const aWord: string): boolean;
    function CheckLetter(aLetter: Char): boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$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 TForm1.Button1Click(Sender: TObject);
var List: TStringList;
  i, f: Integer;
begin
  if dlgOpen.Execute() then
  begin
    List := TStringList.Create;
    f := 0;
    try
      Memo.Lines.BeginUpdate;
      Memo.Clear;
      try
        List.LoadFromFile(dlgOpen.FileName);
        for i := 0 to List.Count - 1 do
          if CheckWord(List[i]) then
            Memo.Lines.Add(List[i])
          else inc(f);
        Caption := IntToStr(Memo.Lines.Count) + ' слов, отброшено ' + IntToStr(f);
      finally
        Memo.lines.EndUpdate;
      end;
    finally
      List.Free;
    end;
  end;
end;

function TForm1.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 TForm1.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.