Fórum Ajuda em um código. #411033

    QtdCaract:=Length(SourceString);
    Aux:= 48;
    While QtdCaract > J  do
        begin
         If J > Aux then
           Begin
           Aux := J + 49;
           QtdCaract := Tamanho - 48;
           Memo1.Lines.Text:= Memo1.Lines.Text + #13;
           end;
        Memo1.Lines.Text:= Memo1.Lines.Text + SourceString[J];
        J := J + 1;