STRCLEAN

procedure TestCheck;
var
  StUSBreceiv    :  string[20];  // String nach dem Clean
  StVorDemClean  :  string[20];   // String vor dem Clean 
  BAuchErsetzen  :  boolean;     // sollen auch die Zeichen Zeichen > $7F ersetzt/gelöscht werden
begin
  
  BAuchErsetzen  := false;
  
  // weise dem String einen Inhalt zu...
  // mit zu löschenden Zeichen $17 $15
  StVorDemClean  := 'Dies ist mein Inhalt'+char($17)+char($15);
  
StUSBreceiv:= StrClean( StVorDemClean, BAuchErsetzen, #0);   

end TestCheck;