1:
2:
3:
4:
5:

PortOut($378, 0)   // alle Pins auf Low
PortOut($378, 1)   // DO auf High
PortOut($378, 2)   // D1 auf High
PortOut($378, 3)   // DO auf High UND D1 auf High
PortOut($378, 255) // D0- D7 auf High					

1:

 if PortIn($379) = 111 then					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  i: Integer;
begin
  i := 1;               // Das erste (unterste) Bit gesetzt
  i := i or (1 shl 2);  
    // So: i war 0001
    // 1 shl 2 bedeutet, dass du eine 1 nimmst und die bitweise um 2 nach links verschiebst:
    // Aus 0001 wird also 0100.
    // Jetzt veroderst du das mit i, d.h. du siehst jeweils ein Bit an und siehst nach ob es
    // in Position entweder in der einen oder der anderen Zahl steht. --> Wenn ja, dann Bit im Ergebnis ist 1
    // 0001 or 0100 = 0101
    // Jetzt ist das erste und das dritte Bit gesetzt und damit auch die entsprechenden Pins auf High,
    // die restlichen auf Low.
end;					

1:
2:
3:
4:
5:
6:
7:

procedure Portout(Port : Word; Data : Byte); stdcall; external 'io.dll';
function  PortIn(Port:Word):Byte; stdcall; external 'io.dll';

procedure TForm1.FormCreate(Sender: TObject);
begin
  PortOut($378,0);
end;					

1:
2:
3:
4:

implementation

procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
function  PortIn(Port:Word):Byte; stdcall; external 'io.dll';