Abrir una Cerradura Electrica DelphiXE TComPort

[pnsd_89]

Buenos Días, tardes o noches según en que parte del mundo se encuentren.
Estoy desarrollando un programa "Experimento" donde trato de abrir una cerradura eléctrica.
Estoy utilizando Delphi XE y el componente TCOMPORT para poder enviar una señal a un hardware (el cual tiene un rele) el cual uso como un "interruptor" para la cerradura eléctrica.
El caso es que con el siguiente código

Código Delphi [-]
  ComPort1.Open;
  ComPort1.WriteStr('A');
  ComPort1.Open;

donde ComPort1 es un componente TComPort, el sistema envía una señal pero no la mantiene y la tranca hace un ruido pero no llega a abrir.
Hay alguna manera de mantener constante esa señal, puesto que si hago...

Código Delphi [-]
  ComPort1.Open;
   for i := 1 to  100 do
  ComPort1.WriteStr('A');
  ComPort1.Open;

la cerradura hacen como 4 "patadas" o ruidos rapidos pero no la abre...
Creo que mi problema esta en que la señal positiva no se mantiene en el puerto serial... hay forma de hacerlo?

Desde ya muchas gracias.

ahh me olvidaba la cerradura es una genérica(china de 12 volt) no se que mas decir sobre la cerradura jaja..