procedureTForm1.Button1Click(Sender:TObject); typemychar=array[0..31]ofchar; typeTDiskID32=Function(varDiskModel,DiskID:mychar):BOOL;stdcall; var Handle:THandle; DiskID32:TFarproc; model,id:mychar; yn:boolean; begin yn:=false; Handle:=LoadLibrary('DiskID32.dll');