Dicas Delphi - Função para inverter um string

Salve, salve amigos,

function Inverte (wStr1: String): String;var i: Integer;begin
        Result := '';
        for i := Length( wStr1 ) downto 1 do Result := Result +
        copy(wStr1,i,1 );end;

Take care