Apro class buffer is empty
 

Necesito ayuda con este error. estoy recibiendo informacion de un puerto serial y este puerto mantiene cierta continuidad en el envio de datos. quisiera saber si alguien sabe porque me da este error

Código Delphi [-]
var
  Form1: TForm1;
 buffer: string;
 bufferindex:integer;
  implementation

uses DMCent, UDMcent, Ufrm2;


{$R *.dfm}



procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
i:shortstring;
c:char;
formato:string;
evento:string;
begin
c:=#32;
      buffer:='';
      apdcomport1.Output:=#6;
            repeat until apdcomport1.open;

//for i:=1 to count do begin

while c<>chr(20) do
            begin
             c:=apdcomport1.getchar;
            buffer:=buffer + c;
           end;
        buffer:=buffer +   formatdatetime('   dd.mm hh:mm:ss',now);

        case buffer[1] of
       '3':formato:='sia';
       '1':formato:='4+2';
       char(0):formato:='nulo';
       end;

       begin
        case buffer[1] of
       '3':evento:=buffer[15]+buffer[16];
       '1':evento:=buffer[19];
       ' ':evento:='0'
       end;
       i:=buffer[9]+buffer[10]+buffer[11]+buffer[12] +buffer[13]+buffer[14];
       listbox1.items.add(buffer + ' formato = ' + formato +'  cliente#=' + i +' evento= '+evento );
       central.Insert;
       centralevento.Value:=evento;
       centralbuffer.Value:=buffer;
       centralcsid.Value:=i;
       central.Post;
       end;
       apdcomport1.Output:=#6