function StrTran(const Texto, Esta, PorEsta: string): string;
begin
Result := StringReplace(Texto, Esta, PorEsta, [rfReplaceAll, rfIgnoreCase] );
end;