More problems with for loops

 procedure TMainForm.CollectReceivedString;
var
i : integer;
areacode : string;
stdsearch : Pchar;
QueryCharge : Pchar;
CallInsert : Pchar;

begin
    LB_query.Lines.Clear;
    Edit1.Clear; // seems to stop here on second CR
With CollexQuery do
  Begin
  Hostname:='localhost';
  UserName:='user';
  Password:='pass';
  Connect;
  Utility.PrepareSelectDatabase('itouch','Use Database');
  Execute;
  end;

     for i := 9 downto 1 do
     //Check dialled number is a match with DB
     //knocking one digit of rightside until a match
     begin
     CollexQuery.Query.Reset;
     areacode := copy(dest,0,i);
     stdsearch := PChar('Select * FROM stdcodes WHERE areacode = '''+areacode+'''');
     CollexQuery.Query.Prepare(stdsearch, 'select');
     CollexQuery.Execute;

//if there is a match, run calculations
if  CollexQuery.Query.DataCount > 0 then
Begin
//add returned results to richedit 
LB_query.Lines.Add(CollexQuery.Query.Data(0,0)+': '+CollexQuery.Query.Data(0,1));
break;
end;
CollexQuery.Query.Reset;
end;
end;



//look for CR

procedure TMainForm.nrComm1AfterReceive(Com: TObject; Buffer: Pointer;
  Received: Cardinal);
  var i:integer;
begin
   for i:=0 to Received-1 do
    if PChar(Buffer)[i]=EolnChar
      then begin
        //CR detected .... do something
        CollectReceivedString;
        //ReceiveString:='';
        continue;
      end
       //else accumulate string ...
       else ReceiveString:=ReceiveString+PChar(Buffer)[i];

end;

procedure TMainForm.nrComm1AfterReceive(Com: TObject; Buffer: Pointer;
  Received: Cardinal);
  var i:integer;
begin
   ReceiveString := '';
   for i:=0 to Received-1 do
    if PChar(Buffer)[i]=EolnChar
      then begin
        //CR detected .... do something
        CollectReceivedString;
        ReceiveString := ''; // Reset received string
      end
       //else accumulate string ...
       else ReceiveString:=ReceiveString+PChar(Buffer)[i];

end;

procedure TMainForm.nrComm1AfterReceive(Com: TObject; Buffer: Pointer;
  Received: Cardinal);
var
  i : integer;
begin
  bFillingBuffer := True;
  for i := 0 to Received-1 do
  begin
    if iCharCount >= sizeof(LargeBuffer) then
      // does nothing. buffer full. loose of received chars
    else
    begin
      // there are space left in buffer
      LargeBuffer[iTail] := PChar(Buffer)[i]; // save char in buffer
      Inc(iTail);                             // move pointer forward
      Inc(iCharCount);                        // count char in buffer
      if iTail = sizeof(LargeBuffer) then iTail := 0; // WRAP
    end;
  end;
  bFillingBuffer := False;
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
var
  I, N : Integer;
  C : Char;
begin
  if iCharCount <= 0 then Exit; // nothing to do
  while bFillingBuffer do ; // wait if processing receive buffer (synchronize)
  N := iCharCount;
  for I := 0 to N-1 do
  begin
    C := LargeBuffer[iHead]; // peak a buffered char
    Inc(iHead);              // move pointer forward
    if iHead = sizeof(LargeBuffer) then iHead := 0; // WRAP
    if C <> #13 then
      sSearch := sSearch + C // concatenated the character
    else
    begin
      Richedit1.Lines.Add(sSearch);
      ProcessSearch(sSearch); // create a procedure to do the database task
                              // keep in mind the time wasted there
      sSearch := ''; // clear for next string
    end;
  end;
  while bFillingBuffer do ; // wait if processing receive buffer (synchronize)
  iCharCount := iCharCount - N; // free space in buffer
end;