Проблема с кодировками, Delphi

[SonicBob]

проблема в том что данные принимаемые с оборудования неправильно переводятся(или все же снимаются с ошибкой)
проблемы только со вторым столбцом
в первом файле данные только снятые без каких либо обработок
после их приема проводим над ними сразу это

  s2:=StrToHex(S);

function StrToHex(source: String): String;
var i:integer;
    c:Char;
    s:String;
begin
    s := '';
    for i:=1 to Length(source) do
    begin
      c := source[i];
      s := s +  IntToHex(Integer(c),1)+' ';
    end;
    result := s;
end;

получаем второй файл

после проводим это

Delete(s2, 6, 8);
s2:=StringReplace(s2,' ','',[RFReplaceall]);
edit2.Text:=(floattostr(StrToFloat(IntToStr(hextoint(ReplaceWords(ReplaceCenterWords(s2)))))/10));

function ReplaceCenterWords(S : String) : String;
var
  L : TStringList;
  I : Integer;
begin
  Result := S;
  L := TStringList.Create;
  L.Text := StringReplace(S,' ',#13#10,[rfReplaceAll]);
  If L.Count mod 2 = 0 Then
    Begin
       L.Exchange((L.Count div 2)-1,(L.Count div 2));
       Result := StringReplace(L.Text,#13#10,' ',[rfReplaceAll]);
    End;
  L.Free;
end;


function ReplaceWords(S : String) : String;
begin
s:=s+copy(s,1,2);
delete(s,1,2);
result:=s;
end;

function getValue(hex: char):integer;
begin
	if (Ord(hex) > 47) and (Ord(hex) < 57) then
		Result:= Ord(hex) - 48
	else if (Ord(hex) > 96) then
		Result:= Ord(hex) - 87
	else
		Result:= Ord(hex)-55;
end;

function HexToInt(hex: string): integer;
var
  i,r: Integer;
begin
  r:=0;
  for i := 1 to Length(hex) do
  begin
    r:=r*16+getValue(hex[i]);
  end;
  Result:=r;
end;

function IntToFloat(x: Integer): real;
begin
  StrToFloat(IntToStr(x));
end;

а теперь проблема
данные второго столбца должны постипенно идти на убыть а не вести себя так

193,0306  185,8  11:19:25:859
193,0308  185,8  11:19:26:968
193,0295  11,9  11:19:27:953
193,0319  11,9  11:19:29:062
193,0318  11,9  11:19:30:031
193,0437  11,9  11:19:31:140
193,0196  174,1  11:19:32:125
193,0307  174,1  11:19:33:234

то есть должно выгладить примерно так

193,0306  185,8  11:19:25:859
193,0308  185,8  11:19:26:968
193,0295  182  11:19:27:953
193,0319  180  11:19:29:062
193,0318  179 11:19:30:031
193,0437  176  11:19:31:140
193,0196  174,1  11:19:32:125
193,0307  174,1  11:19:33:234

покажите где у меня ошибка (я все же думаю что она в кодировке), спасибо

[Stilet]

после проводим это

А что мешает это сразу ложить в динмассив? А после его можно отсортировать любыми методами.

[SonicBob]

Сообщение от Stilet

А что мешает это сразу ложить в динмассив? А после его можно отсортировать любыми методами.

честно, не понимаю про что ты, расскажи подробней
в моем методе есть ошибки?или это просто не рационально?

[SonicBob]

или все же у меня не правильно с самого начала принимаются данные?

[SonicBob]

как всегда с моими темами на этом форуме, ноль ответов по вопросу, мб надо перегаться с женским ником?