[lmikle]

Читай построчно через textFile, когда появится что-то отличное от A и Б - выбрасывай:

Код:

var
  F : TextFile;
  L : TStringList;
  S : String;
begin
  L := TStringList.Create;
  Try
    AssignFile(F,'c:\myfile.txt');
    Reset(F);
    While Not EOF(F) Do
      Begin
        ReadLn(F,S);
        If S <> '' Then
          If S[1] In ['А','Б','а','б'] Then // Заглавные и нет.
            L.Add(S)
      End;
   CloseFile(F);
  Finally
    L.Free;
  End;
end;

Как-то так.