[Stalker2-42]

У меня так:

Код:

procedure TmrCircle;
var
  Tochek : Integer;
  ciCirle : BASS_CHANNELINFO;
  BufCirle :array of Single;
begin
......
SetLength(BufCirle, Integer(ciCirle.chans) * (Tochek+1));
BASS_ChannelGetData(Channel, BufCirle, (Integer(ciCirle.chans) * (Tochek + 1) * SizeOf(Single)) or BASS_DATA_FLOAT);
.....
end;