Sending data to Lpt port

[Fletch]

Hi All

Can someone help.  Ver 9.42

I need to send 3 bytes to LPT 1 but at different base addresses.  I tried doing it as below but it does not work.  Can someone advise me.

nrLPT.Active := False;
nrLPT.LptPort := lpLPT1;
nrLPT.LptIOBase := 890;
nrLPT.Active := True;
nrLPT1.SendChar('0');
nrLPT.Active := False;
nrLPT.LptIOBase := 888;
nrLPT.Active := True;
nrLPT1.SendChar('1');
nrLPT.Active := False;
nrLPT.LptIOBase := 890;
nrLPT.Active := True;
nrLPT1.SendChar('1');

Thanks
Godfrey