const
  LPT_Port = $378; // LPT Port 1 (dezimal 888)

procedure LEDs(led1,led2,led3,led4,led5,led6,led7,led8: Boolean);
var
  Value: Byte;
begin
  Value := 0;

  if led1 then Value := Value + 1;
  if led2 then Value := Value + 2;
  if led3 then Value := Value + 4;
  if led4 then Value := Value + 8;
  if led5 then Value := Value + 16;
  if led6 then Value := Value + 32;
  if led7 then Value := Value + 64;
  if led8 then Value := Value + 128;

  Out32(LPT_Port, Value);
end;

// Aufruf zB so:
LEDs(True, False, False, False, False, False, False, False);

const
  LPT_Port = $378; // LPT Port 1 (dezimal 888)

procedure SetLEDs(Value: Byte);
begin
  Out32(LPT_Port, Value);
end;

// Aufruf:

SetLEDs($00000001); // Setzt die LED 1
SetLEDs($00000011); // Setzt die LED 1 & 2
SetLEDs($10000001); // Setzt die LED 1 & 8
SetLEDs($00000000); // alles aus

Out32($378, $00000001); // Setzt die LED 1
...
Out32($378, $10000001); // Setzt die LED 1 & 8