procedure SetLength(var S; NewLength: Integer);

var arr: pat_inrancs;
 
...
 
SetLength(arr, 1);
arr[0] := inranc.Create;
with arr[0] do begin 
  locode:=205;
  lic:='0000001';
  ...
end;
api.patinf.inrancs.list := arr;

var arr: pat_inrancs;
 
...
 
api.patinf.inrancs.list[0].Free;
SetLength(arr, 0);
api.patinf.inrancs.list := arr;

#define someConst "\x15\x2D\xFF"

BASS_ChannelPlay(Stream, True);
BASS_ChannelSetSync(Stream, BASS_SYNC_END, 0, @ChannelSync, nil);

procedure ChannelSync(Handle: HSYNC; Stream, Data: DWORD; User: Pointer); stdcall;
begin
  {
    Здесь, собственно, и выполняем всю грязную работу
  }
end;

bass_channelplay(stream, true);

function TForm1.DaysOfMonth( mm, yy: integer ): integer;
begin
   if mm = 2 then
   begin
      Result := 28;
      if IsLeapYear( yy ) then Result := 29;
   end
   else
   begin
      if mm < 8 then
      begin
         if ( mm mod 2 ) = 0 then
            Result := 30
         else
            Result := 31;
      end
      else
      begin
         if ( mm mod 2 ) = 0 then
            Result := 31
         else
            Result := 30;
      end;
   end;
end;
 
function TForm1.StrBetweenDate(Date1, Date2: TDate): string;
var
  to_date, from_date: TDateTime;
  y1, y2, m1, m2, d1, d2, Full_Months, Days: Integer; 
begin
  to_date:=DateTimePicker1.DateTime;
  from_date:=DateTimePicker2.DateTime;
 
  DecodeDate(from_date,y1,m1,d1);
  DecodeDate(to_date,y2,m2,d2);
 
  Full_Months:=(y1-y2)*12+(m1-m2);
 
  // если дни в конечной дате меньше чем в начальной
  If d1<d2 then begin
    // вычитаем один месяц
    Full_Months:=Full_Months-1;
    // из количества дней в предпоследнем месяце вычитаем дни  начальной даты и прибавляем дни конечной
    Days := MonthDays(m1 - 1, y1) - d2 + d1;
  end else
    // иначе просто находим разницу в днях
    Days := d1 - d2;
  Inc(Days);
  Result := Format('Month: %d'#13#10'Day: %d', [Full_Months, Days]);
end;

uses
  DateUtils;
 
type
{ дни недели
      DayMonday     = 1;
      DayTuesday    = 2;
      DayWednesday  = 3;
      DayThursday   = 4;
      DayFriday     = 5;
      DaySaturday   = 6;
      DaySunday     = 7; }
  TDows = set of Byte;
 
function IsHoliday(const dt: TDateTime): Boolean;
begin
  // функция возвращает true, если дата dt - гос. праздник/выходной
  // сам напишешь.
end;
 
function FillComboDates(cb: TComboBox; const Mask: TDows; const Interval: int32): Boolean;
var
  dt, edt: TDateTime;
  dow: int32;
begin
  dt:= Date();
  edt:= IncDay(dt, Interval);
  cb.Items.Clear();
  cb.Text= ''; // не обязательно
 
  repeat
    if not IsHoliday(dt) and (Byte(DayOfTheWeek(dt)) in Mask)
      then cb.Items.Add(FormatDateTime('dddd, d mmm yyyy', dt);
    IncDay(dt);
  until dt > edt;
 
  Result:= cb.Items.Count <> 0;
  cb.Style:= csDropDownList;
 
  if Result
    then cb.ItemIndex:= 0;
end;

ADOQuery1.SQL.Text:='SELECT * FROM Номера WHERE №Комнаты='+IntToStr(i);

procedure TForm2.btn_SizeClick(Sender: TObject);
 begin
   Form3.Height := StrToInt(Edit1.Text);
   Form3.Width := StrToInt(Edit2.Text);
 end;

var
  Memo: array[1..3] of TMemo;
  i: Integer;                //глобальная переменная
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo[1]:= Memo1;
  Memo[2]:= Memo2;
  Memo[3]:= Memo3;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo[i].Lines.Add('B'); //записать 'B' в Memo[i]
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Memo: TMemo;
begin
  Memo:= TMemo(FindComponent('Memo' + IntToStr(i)));
  // или Memo:= TMemo(FindChildControl('Memo' + IntToStr(i)));
  if Assigned(Memo)
    then Memo.Lines.Add('B'); //записать 'B' в Memo[i]
end;