Steuerzeichen weg

[HomerGER]

Hallo
ich lade meldungen aus einer dll
um bei langen meldungen nicht ein super lang str auf den bildschirm zu haben
soll er das in zeilen machen


formatiert hab ich meine str's so textzeile1#10#13textzeile2#10#13textzeile3#10#13te xtzeile4#10#13

mein code sieht so aus

Code:

//Steuerzeichen vorhanden
    if (Pos('#10#13', text_str_s) <> 0) then
    begin
        //#10#13 setzen
        j := 1;
        for i := j to Length(text_str_s) do
        begin
            if (text_str_s <> '') then
            begin
                pos_i := Pos('#10#13', text_str_s);
                text_as[i] := Copy(text_str_s, 1, pos_i - 1);
                text_as[i + 1] := #10#13;
                Delete(text_str_s, 1, pos_i + 5);
                j := j + 2;
            end;
        end;

        for i := 1 to 20 do
        begin
            output_s := output_s + text_as[i];
        end;
    end
    else
    begin
        output_s := text_str_s;
    end;

nur bekomme ich alles in einer zeile wieder
textzeile1textzeile2textzeile3textzeile4

und so sollte es aussehen

textzeile1
textzeile2
textzeile3
textzeile4

kann mir jemand weiterhelfen ?