Zeichen aus einem String filtern/löschen

[Blubbel]

Jetzt möchte ich ja, dass alles aus dem Array in ein Textfeld übergeben werden und zwar wieder mit diesem Code:

Delphi-Quellcode:

      2:
      begin
        if not (ALine[i] in ['>']) then
        begin
           lBuffer := lBuffer + ALine[i];
        end else
        begin
          AIdent[j] := lBuffer ;          
          Ident.Text := AIdent[j];
          lState := 1;
          lBuffer := '';
        end;

habe schon einiges versucht aber es funktioniert irgendwie nicht. soll Auch eigentlich nur zum Test sein, ob er auch wirklich alles aus dem Array ausgibt