[Kailon]

Вот тебе универсальная функция, которая возвратит набор слов, которые начинаются с указанного символа:

Код:

function GetWords(aSource: String; aSymbol: Char): TStringList;
var
  SL: TStringList;
  I: LongWord;
begin
  SL := TStringList.Create;
  with SL do
    begin
      LoadFromFile(aSource);
      Delimiter := ' ';
      DelimitedText := Text;
      for I := Count - 1 downto 0 do
        if Copy(SL[i], 1, 1) <> aSymbol then
          Delete(I);
    end;
  Result := SL;
end;

Пример вызова:

Код:

procedure TForm2.Button1Click(Sender: TObject);
var
  I: LongWord;
  SL: TStringList;
begin
  Memo1.Clear;
  SL := GetWords('Test.txt', 'А');
  for I := 0 to SL.Count - 1 do
    Memo1.Lines.Add(SL[i]);
  SL.Free;
end;