Fórum Problema com código ! #168797

Pessoal, estou desenvolvendo um programa com SOCKETS para a finalidade de controlar a porta paralela a distancia. O problema é que quando tento enviar os dados por exemplo se clico no botão 1 é para ligar o dispositivo 1, mas ele liga o 5,6 e 7 não tem uma sequencia, mas o que está acontecendo é que qdo mando ligar um determinado dispositivo, ligan-se outros. O programa CLIENTE irá mandar a seguinte mensagem para o programa servidor:

rocedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
i:=0;
if SpeedButton1.Down=true then
i:=i+1;
if SpeedButton2.Down=true then
i:=i+2;
if SpeedButton3.Down=true then
i:=i+4;
if SpeedButton4.Down=true then
i:=i+8;
if SpeedButton5.Down=true then
i:=i+16;
if SpeedButton6.Down=true then
i:=i+32;
if SpeedButton7.Down=true then
i:=i+64;
if SpeedButton8.Down=true then
i:=i+128;
ClientSocket1.Socket.SendText(inttostr(i));

E o programa servidor recebe:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
comando: string;
begin
comando:= Socket.ReceiveText;
ParallelPort1.Data:= StrToInt (comando);

Sendo que ParallelPort1 é o componente que estou usando, e ele funciona perfeitamente para controlar a LPT. Alguem pode me ajudar aew, caso precise mando o programa para análise.
Preciso de ajuda...

Já postei esta duvida estou postando de novo porque preciso de muito AJUDA !

Rodrigo!