Denke habe den Fehler !!!
Setze mal die
procedure SyncProc(Handle: HSync; Channel, Data: DWORD; User: DWORD); stdcall;
über deine
procedure TRecordForm.PlayExecute(Sender: TObject);
dann müßte es laufen.
EDIT:
Eigentlich sollte man das
procedure SyncProc(Handle: HSync; Channel, Data: DWORD; User: DWORD); stdcall;
im Header nochmal definieren oder aber dafür sorgen das es
Initialisiert wird bevor man drauf zugreift
Also über die Function/Procedure setzen aus der sie aufgerufen wird..
gruss Emil