[AnderoN]

Пожалуйста помогите разобраться, очень необходимо. Проблема описана после кода.

Код:

procedure TForm1.Button2Click(Sender: TObject);
label 10;
var
A1,A2,A4,l,m,n:integer;
A3:string;
yb:byte;
a,g:real;
begin
  if Checkbox1.Checked then
    Form3.Show
  else
    Form2.Show;
  if (hCOM=0) or (hCOM=INVALID_HANDLE_VALUE) then exit;
  PurgeComm(hCOM,PURGE_RXCLEAR);
  A1:=strtoint(Edit1.Text);
  A2:=abs(A1);
  A3:=DEC2HEX(A2);
  A4:=Hex2Byte(A3);
  xb:=A4;
  WriteFile(hCOM,xb,1,xn,nil);
  told:=Time;
  ttime:=Time;
  if MilliSecondsBetween(told,ttime)<=500 then
    begin
      if A1<0 then
        yb:=$CC
      else
        yb:=$AA;
    end;
  WriteFile(hCOM,yb,1,xn,nil);
  if Checkbox1.Checked then
  begin
    a:=0;
    m:=0;
    for n:=1 to 2*A2 do
      10:
      begin
        if ReadFile(hCOM,k,1,xn,nil) then
          begin
            st:=hexb(k);
            l:=HEX2DEC(st);
            a:=a+l;
            m:=m+1;
            if m=3 then
              begin
                a:=a/3;
                Form1.Memo1.Lines.Add(floattostr(a));
                g:=n/2;
                Form1.Memo2.Lines.Add(floattostr(g));
                a:=0;
                m:=0;
              end
            else goto 10;
          end;
      end;
   end;
end;

В программе, когда стоит флажок в Checkbox1 должна появляться Форма 3 и в ней текст, а когда не стоит флажок, аналогично Форма2. Проблема в том, что, если флажок не стоит, то все отлично работает, а если стоит, то форма три появляется, но пустая (без текста, который в ней написан), а текст появляется только по окончании цикла

Код:

for n:=1 to 2*A2 do

помогите разобраться пожалуйста в чем дело.