Delphi Programm nach VB.Net übersetzen

[Rattr (Gast)]

Hallo Leute

Möchte gerne ein Delphi Programm nach VB.Net übersetzen.
Dazu benötige ich eure Hilfe, weil ich kein Delphi kann.
Einige Paralellen sind ja vorhanden.

Wie übersetze ich zb.:

//###################################################################### 
########
procedure MRQ(Status: Boolean);  // Setzt die MRQ Leitung auf HIGH bzw 
LOW
begin                            // ARGUMENTE: Status: "High"/"Low"
  if Status = High then//Wenn Status LOW werden soll
    begin
      hPortStatus := hPortstatus or 4;
      asm
        mov dx, 378h
        mov al, hPortStatus
        out dx, al
      end;
    end
  else                //Wenn Status HIGH werden soll
    begin
      if hPortstatus and 4 = 4 then  //Nur wenn Ist-Zustand High...
        begin
          hPortstatus := hPortstatus - 4;  //...auf low setzen
          asm
            mov dx, 378h
            mov al, hPortStatus
            out dx, al
          end;
        end;
    end;
end;

Mir ist klar, das Inline Assembler nicht mehr funktioniert.
Darum soll es später über die InPout32.dll laufen.
Bin mir mit den END; und END  bzw begin nicht sicher :-(

Ist dies korrekt übersetzt??? :

Function MRQ(ByVal Status As Boolean)
'Setzt die MRQ Leitung auf HIGH bzw LOW
        If Status = High Then 'Wenn Status LOW werden soll
           hPortStatus = hPortstatus or 4;
            'asm()
            'mov dx, 378h
            'mov(al, hPortStatus)
            'out(dx, al)
        Else         'Wenn Status HIGH werden soll
            If hPortStatus And 4 = 4 Then  'Nur wenn Ist-Zustand High...
                       hPortstatus = hPortstatus - 4;  '...auf low 
setzen
                ' asm()
                'mov dx, 378h
                '   mov(al, hPortStatus)
                '  out(dx, al)
            End If
        End If
    End Function

[Rattr (Gast)]

Habe es ausprobiert. Wurde von mir richtig übersetzt. Danke für eure 
Nichthilfe.

[Klaus W. (mfgkw)]

Bitte, immer wieder gerne!