[v1s2222]

Самый легкий вариант - загрузить все в TStringList.

Код:

var
  s: TStringList;
  i: integer;
  A, B: Integer;
begin
  s:=TStringList.Create;
  S.LoadFromFile('file.txt');
  A := Pos('А', S.Text);
  B := Pos('Б', S.Text);
  for i:=A to B do
...
  S.Free;
end;