[urahara]

тогда так:

Код:

  i := 1;
  while i <= n do
    begin
       if  label2.caption[i]<>';'then
        begin
          chislo:=chislo+label2.caption[i];
        end
       else
        begin
          if (0=strtoint(chislo) mod 3) then
            begin
              edit1.text:=edit1.text + chislo + ' ' ;
            end;
            chislo:=''
        end;
      inc(i);
    end;