[arxlex]

Вот что получилось из функции Strip, к удивлению работает

Код:

function Strip(psLine, psRemoveStr : string) : string;
var
   iLoc : integer;
begin
   iLoc := Pos(psLine, psRemoveStr) ;
   while (iLoc > 0) do begin
     psLine := LeftStr(psLine, iLoc - 1);
        MidStr(psLine, iLoc , Length(psRemoveStr));
     iLoc := Pos(psLine, psRemoveStr);
   end;
   Strip := psLine;
end;