Или создавай тип
Код:
type TMyStr = object
str: array of string;
count: integer
Procedure Add(const text:string);
end;
или (предпочтительно):
Код:
type TMyStr = class()
public
str: array of string;
count: integer;
Procedure Add(const Text:string);
end;
В случае класса не забудь вызывать конструктор при создании обьекта.
ЗЫ
Метод реализовуй в разделе
implementation
Код:
Procedure TMyStr.Add(const Text:String);
begin
inc(count);
setLength(str, count);
str[count-1]:=Text;
end;