Zeichen aus einem String filtern/löschen

[Blubbel]

BIs dahin hab ich schon was gebastelt

Delphi-Quellcode:

function TForm1.Filter(lLine: String; out lDate: TDateTime; out lIdent: array of String; out lLogMessage,
  lSeverityStatus: String): Boolean;
var
  Pos: Integer;
begin
  Result:= false;
  for lLine := 1 to SetLength do
  begin
    if Pos:= Pos('<','>','[',']','*',':', lLine) then
    begin
      Delete(Pos);
    end;
  end;
  Result:= true;
end;