Como leer los datos de un UPS

[[kurono]]

hola amigos estoy intentando leer los datos proveniente de un UPS que contiene un puerto serie pero no logro obtener datos uso los componente CportLibr ,me gustaria que me dijieran que parametro debo poner para poder leer los datos e probado con este codigo

Código Delphi [-]
uses
  SysUtils,
  windows;

var Puerto,n:integer;
    Num:byte;
    Cad:string;
    ModeCB;
begin
  Puerto:=FileOpen('COM1',fmOpenRead);//Abre el puerto
  Mode.BaudRate := 1200;
  Mode.ByteSize := 8;
  Mode.Parity := NOPARITY;
  Mode.StopBits := ONESTOPBIT;
  SetCommState(Puerto, Mode); //Ajusta los parámetros
  // Los datos se repiten y terminan con #13(CR) 
  repeat
   repeat until FileRead(Puerto,Num,1)=1;
  until Num=13; // Final de cadena anterior
  Cad:='';
  for n := 1 to 8 do begin
   repeat until FileRead(Puerto,Num,1)=1;//lee un byte
   Cad:=Cad+chr(Num);
  end;
 write(Cad);//Muestra la lectura
 Sleep(1000); // Espera para poder ver el resultado
end.

y no e conseguido nada