Componente Comport

[harimuya]

Tengo un problema con el componente CPortLib, exactamente con el
Comport, no me captura la informacion a traves de un For - End
funciona bien si lo hago por partes (es decir click para capturar, click para procesar) pero no me sirve asi, debo poner todo el proceso a traves de un for, les paso algo...

Código Delphi [-]
for Wvez := 1 to 50 do
begin
ComPort.Port:='COM12';
ComPort.BaudRate:=brCustom;
ComPort.Open
ComPort.WriteStr('1');
        
ComPort.ReadStr(Str, 3000);   // Esta parte no me funciona
Memo1.Text := Str;    // Si le pongo un Message recien captura
.        // si le pongo Sleep(xx) tampoco funciona 
.
.
end;

esto debe ser automatico,
alguien podria ayudar con este tema
desde ya gracias por su respuestas