#pas
 Function SwapByte(byteF:byte): byte;  {Переворачивает байт. }
Byte_Lo, Byte_Hi :byte;
begin
Byte_Lo := byteF shr 4;
Byte_Hi := byteF and $0f;
SwapByte :=  ((Byte_Hi shl 4) + Byte_Lo);
end;

 Function SwapCharStr(Str1:string):string; 
var I:integer;
begin
 SwapCharStr := Str1;
 For I := 1 to Length(Str1) do SwapCharStr[I] := Chr(SwapByte(ORD(Str1[I])));
 end;