unit Unit1;

interface

uses
.......................

type
  TMain = class(TForm)
    procedure LoadBotsClick(Sender: TObject);
 .........................
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;
  Bot:array of TICQClient;
  kol:Integer;

implementation

uses Unit2;

{$R *.dfm}

procedure TMain.LoadBotsClick(Sender: TObject);
var i,k:Integer;
begin
SetLength(Bot,kol);
for i := 0 to high(bot) do
begin
Bot[i]:=Ticqclient.create(nil);//Как я понял это создание элементов массива
k:=pos(';',Options.memo1.Lines[i]);
bot[i].UIN:=strtoint(copy(Options.memo1.Lines[i],0,k-1));
bot[i].Password:=copy(Options.memo1.Lines[i],k+1,length(Options.memo1.Lines[i])-k);
end;
end;