[YVitaliy]

Код:

unit TestUnit;

interface
type TMyStr = class(TObject)
public
 str: array of string;
 count: integer;
 Procedure Add(const Text:string);
end;

implementation

{ TMyStr }

procedure TMyStr.Add(const Text: string);
begin
  inc(count);
  setLength(str, count);
  str[count-1]:=Text;
end;

end.

И, например, в обработчике OnCreate главной формы (или при старте программы) создаем обьект

Код:

var strObj:TMyStr;
.........
procedure TForm1.FormCreate(Sender: TObject);
begin
strObj:=TMyStr.Create;
end;
//И добавляем запись
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 s:='';
 if inputQuery('Добавление текста','Введите текст',s) then
 strObj.add(s);
end;