[kpa9pt]

Сейчас напишу куски кода, не уходи плз

procedure OnLoad; stdcall;
begin

//SetLength(ListConection,0);
ConectionID:=0;
CountConections:=0;
  with ps do
    begin
    if GoFirstConnection then
      repeat
      ListConection[CountConections]:=inttostr(ConnectInfo.ConnectID);
      inc(CountConections);
      until not GoNextConnection;
    end;
form1:=TForm1.Create(nil);
form1.Show;
end;
procedure OnFree; stdcall;
begin
BaseChar.ClearCardi; //очистка базы ObjectID
BaseChar.ClearCardiName;//очистка базы ObjectName
ul2Form.FreeFormSublime;//см.ниже.
form1.free;


end;

procedure FreeFormSublime;
begin
  if booleanForm2 then
  begin
    form2.Free;
    booleanForm2:=false;
  end;
end;

Добавлено через 23 часа 51 минуту
Ап, прошли сутки ответа нет, мб я недостаточно информации дал? могу ещё написать если чего-то не хватает(