Полноценное управление LPT портом в Delphi, как лучше реализовать?

function Inp32(PortAdr: Word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: Word; Data: byte): byte; stdcall; external 'inpout32.dll';

function Inp32(PortAdr: Word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: Word; Data: byte): byte; stdcall; external 'inpout32.dll';

    PortAdr1 := $EEFC;
    PortAdr2 := $EEFF;
    Data := 255;
    for PortAdr := PortAdr1 to PortAdr2 do
        Out32(PortAdr, Data);
    Sleep (2000);
    Data := 0;
    for PortAdr := PortAdr1 to PortAdr2 do
        Out32(PortAdr, Data);
    Sleep (2000);
    Data := 255;
    for PortAdr := PortAdr1 to PortAdr2 do
        Out32(PortAdr, Data);

 if TryStrToFloat(ParallelPortPeriodEdit.Text, time_out) and
      TryStrToInt(ParallelPortCodeEdit1.Text, value1) and
      TryStrToInt(lblStepNumber.Text, StepNumber) then
    begin
        if (value1 = 0) or (value1 = 1) then
            for i := 1 to StepNumber do
            begin
                Data := value1 * 2;
                for PortAdr := PortAdr1 to PortAdr2 do
                    Out32(PortAdr, Data);
                Delay_mcs(time_out);
                Data := 1 + value1 * 2;
                for PortAdr := PortAdr1 to PortAdr2 do
                    Out32(PortAdr, Data);
                Delay_mcs(time_out);
            end;
    end
    else
        ShowMessage('Ошибка ввода');

function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';
 
procedure ChangeRotateSD; // Вызывается при изменении величины SetVel
var
    i: Integer;
begin
    i := AxisNum;
    if Vel > 0 then // Направление вращения
    begin
        RotDir[i] := 0;
        RotateStep[i] := 1
    end
    else if Vel < 0 then // Другое направление вращения
    begin
        RotDir[i] := 1;
        RotateStep[i] := 1
    end
    else // Остановка
    begin
        RotDir[i] := 0;
        RotateStep[i] := 0
    end;
end;
 
function RotateThread(Parameter: pointer): Integer;
 
    procedure Delay_mcs(time_out: double); // Задержка в микросекундах
    var
        iCounterPerSec: TLargeInteger;
        T1, T2: TLargeInteger; // значение счётчика ДО и ПОСЛЕ операции
    begin
        QueryPerformanceFrequency(iCounterPerSec);
        // определили частоту счётчика
        QueryPerformanceCounter(T1); // засекли время начала операции
        T2 := T1;
 
        while (T2 - T1) * 1000000 / iCounterPerSec < time_out do
            QueryPerformanceCounter(T2); // засекли время окончания
    end;
 
var
    PortAdr: word;
    Data: byte; // То, что выдается в LPT-порт
    time_out: double;
begin
    PortAdr := $EEFC; // Адрес LPT-порта
    time_out := 500; // Задержка в микросекундах
    // Установка 0 возвращаемому значению
    Result := 0;
 
    while true do
    begin
        Data := RotDir[1] * 2 + RotDir[2] * 8 + RotDir[3] * 32 + RotDir[4] *
          128; 
        Out32(PortAdr, Data);
        Delay_mcs(time_out);
        Data := RotateStep[1] + RotateStep[2] * 4 + RotateStep[3] * 16 +
          RotateStep[4] * 64 +
      RotDir[1] * 2 + RotDir[2] * 8 + RotDir[3] * 32 + RotDir[4] * 128;
        Out32(PortAdr, Data);
        Delay_mcs(time_out);
    end;
 
    // Конец потока
    EndThread(0);
end;
 
procedure InitializeHardware;
var
    id1: LongWord;
    thread1: Integer;
    msg1: TMsgRecord;
begin
    IsSoftwareControlEngine := true;
 
    RotateStep[1] := 0; // Начальная скорость вращения ШД = 0
    RotateStep[2] := 0; // Начальная скорость вращения ШД = 0
    RotateStep[3] := 0; // Начальная скорость вращения ШД = 0
    RotateStep[4] := 0; // Начальная скорость вращения ШД = 0
    RotDir[1] := 0;
    RotDir[2] := 0;
    RotDir[3] := 0;
    RotDir[4] := 0;
    thread1 := BeginThread(nil, 0, Addr(RotateThread), Addr(msg1), 0, id1);
 
    CloseHandle(thread1);
end;