Как парсить текстовик в delphi?
procedure TMainForm.ButtonClick(Sender: TObject);
var
 men: TMatchCollectionEnumerator;
begin
  men := TRegEx.Matches('one two three', '\w+').GetEnumerator;

  while men.MoveNext do
  begin
    men.Current.Value
  end;

  men.Free;
end;

Смекнули?

Units
- System.RegularExpressions
- System.Generics.Collections
как можно добавить к существующему массиву записи, ведь я не знаю сколько их будетИспользуйте динамический массив (SetLength).