Apro class buffer is empty

[compualarma]

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


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