[pnsd_89]

fumciono!!!!!
el codigo final es este

Código Delphi [-]
            if activarTranca then
           begin
           // Para activar tranca
                ComPort.Port := sTrancaPort;//variable que lee de un .ini contiene COM1 o el puerto que fuere
                ComPort.Open;
                ComPort.SetRTS(True);
                Sleep(3000);// Casimiro este quedo en 3 segundos nada mas jeje
                ComPort.SetRTS(false);
                ComPort.Close;
                activarTranca := false;
           end;