[octalh]

Pues al final lo solucione, solo que no de esa forma

resulta que si se pueden voltear las strings y funciono muy bien

dejo el codigo por si alguien lo necesita

Function String_Reverse(S : String): String; 
Var 
   i : Integer; 
Begin 
   Result := ''; 
   For i := Length(S) DownTo 1 Do 
   Begin 
     Result := Result + Copy(S,i,1) ; 
     T := result; 
   End; 
End;