[Rokuell]

Вот перевод:

Код:

uses io;

const indexPort:word = $295;
        dataPort:word = $296; 


function ListenPort(index:byte):byte;
begin
 PortOut(indexPort, index);
 Result :=  PortIn(dataPort);
end;

procedure SendPort(index:byte; data:byte);
begin
 PortOut(indexPort, index);
 PortOut(dataPort, data);
end;

function getTemp(TempNum:byte):byte;
begin
   if TempNum=1 then Result := ListenPort($29)
   else if TempNum=2 then Result := ListenPort($2A)
   else if TempNum=3 then Result := ListenPort($2B)
   else Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage ( IntToStr(getTemp(1))  );
end;

Заголовочный файл io.pas и библиотека io.dll в архиве.

P.S. ВАЖНО: Если функции экспортируемые из io.dll не указывать как stdcall то возможны ошибки, вплоть до вылета на синий экран смерти (Как это было у меня)