Hola amigo,
Y no te sirve usar la funcion ReverseString() ????
Código Delphi
[-]
uses StrUtils;
procedure TForm1.Button1Click(Sender: TObject);
var
Cadena: string;
begin
Cadena := '76543210';
ShowMessage(cadena+#13+ReverseString(cadena));
end;
Salud OS