Pomoć oko rsr232

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var b : array[0..1000] of char;
    k : array[0..10] of char;
  x,i : integer;
  primio : integer;
begin
cekamkom := cekamkom + 1;
if cekamkom >= 20 then begin
  timer1.Enabled := false;
  apdcomport1.open := false;
  showmessage('NEMA KOMUNIKACIJE SA VAGOM');
  if odaklekom=1 then brutobtn.Enabled := true
                 else tarabtn.Enabled := true;
  exit;
  end;

x := apdcomport1.inBuffused;
if x > 40 then begin
  apdcomport1.GetBlock(b,x);
  i := x-2;
  primio := 0;
  while ((i > 10) and (primio=0))  do begin
    if ((b[i]='A') and (b[i-1]='B') and (b[i-2]='G')) then begin
      k[0] := b[i-7];
      k[1] := b[i-6];
      k[2] := b[i-5];
      k[3] := b[i-4];
      k[4] := b[i-3];
      k[5] := chr(0);
      primio := 1;
      end;
    i := i - 1;
    end;

  if primio=1 then begin
    timer1.Enabled := false;
    apdcomport1.open := false;
    if odaklekom=1 then brutoed.text := k
                   else taraed.text := k;
    izracunajneto;
    if odaklekom=1 then brutobtn.Enabled := true
                   else tarabtn.Enabled := true;
    exit;
    end;

  if primio=0 then begin
    timer1.Enabled := false;
    apdcomport1.open := false;
    showmessage('NISU DOBRI PODACI OD VAGE');
    if odaklekom=1 then brutobtn.Enabled := true
                   else tarabtn.Enabled := true;
    exit;
    end;

  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var k : array[0..10] of char;
begin
k[0] := ' ';
k[1] := ' ';
k[2] := '6';
k[3] := '5';
k[4] := '0';
k[5] := chr(0);
brutoed.text := k;
izracunajneto;
end;
////////////////////////////////////////////////