[juraman1]

sA- глобальный массив

Код:

    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RGZ: TRGZ;
  sA: array [1..1000] of string;
  iB: array [1..1000] of DWORD;
   i: integer;
implementation

функцию изучил)