Delphi Функция возвращает строку на оборот

//Функция возвращает строку на оборот
Function Revert(S: string):string;
var

i: byte;
 T: string;
Begin
 T:='';
 For i:=length(S) downto 1 do
  T:=T+S[i];
 Revert:=T;
End;