Возникла проблема с ф-й LineGetId, если кто-то работал исправьте где не правильно. Спасибо .
Значение которое возвращает err = — 2743123651

var
hlin:hline;
hCal : HCALL;
DeviceID :^tvarstring;
err,l:longint;
begin
l:= sizeof(deviceid^);
GetMem(deviceid,l);
deviceid.dwTotalSize := l;

err:=linegetid ( hlin , 0, Hcal , LINECALLSELECT_LINE , @deviceid,'wave/out');

if deviceid.dwTotalSize < deviceid.dwNeededSize then begin
l:=deviceid.dwNeededSize;
getmem(deviceid,l);
deviceid.dwTotalSize:=l;
err:=linegetid( hlin , 0 , HCal,LINECALLSELECT_LINE,@deviceid,'wave/out');
end;

А зачем еще раз адрес от ссылки на варстринг берешь?