function Out32(wAddr:word;bOut:byte):byte; stdcall; external 'inpout32.dll'; // ini harus dideklarasikan dibawah uses



var

  x:byte;


x:=(Out32($378,0));//cara pengiriman data melalui port yang ditentukan