...

type
TBE_Version = record
byDLLMajorVersion : Byte;
byDLLMinorVersion : Byte;

byMajorVersion : Byte;
byMinorVersion : Byte;

byDay : Byte;
byMonth : Byte;
wYear : Word;

zHomePage : Array[0..BE_MAX_HOMEPAGE + 1] of Char;
end;

PBE_Version = ^TBE_Version;

Procedure beVersion(var pbeVersion: TBE_VERSION); cdecl; external 'Lame_enc.dll';

...

unit HiAsmUnit;

interface

uses KOL,Share,WinSock,Debug;

type
THiAsmClass = class(TDebug)
private
public
procedure Version(var dt:TData; idx:word);
end;

TBE_Version = record
...
...

implementation

procedure THiAsmClass.Version;
var vers: TBE_Version;
begin
beVersion(vers);
dtString(dt, vers.zHomePage);
end;

end.