1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

function GetFirstZahlStr(var RestStr: String):String;
// var RestStr, ist anfangs der InStr und wird dann mit dem Rest nach der
// AnfangsZahl belegt, damit der Rest später auch noch verglichen werden kann
var
  i, FoundKommaPoint, lengthStr: Integer;
begin
  result:= '';
  lengthStr:= length(RestStr);
  if lengthStr > 0 then begin
    FoundKommaPoint:= 0;
    i:= 1;
    while (RestStr[i] in ['1','2','3','4','5','6','7','8','9','0',',','.'])
      and (FoundKommaPoint < 2) and (i <= lengthStr) do begin
      if RestStr[i] in [',','.'] then inc(FoundKommaPoint);
      inc(i);
    end;
    // damit letztes Komma nicht mit in result kopiert wird
    if FoundKommaPoint > 1 then dec(i);
    result:= copy(RestStr,1,i-1);
    RestStr:= copy(RestStr,i,lengthStr-i+1);
    // damit in Float umgewandelt werden kann
    result:= StringReplace(result,'.',',',[]);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

function MyCompareText(Str1, Str2: String): Integer;
var
  ResultCompareValue: Integer;
  ZahlStr1,ZahlStr2: String;
begin
  ZahlStr1:=GetFirstZahlStr(Str1);
  ZahlStr2:=GetFirstZahlStr(Str2);

  // Keine Anfangszahl gefunden
  if (ZahlStr1 = '') and (ZahlStr2 = '') then
    result:= CompareText(Str1, Str2)
  else
    // Beides Zahlen
    if (ZahlStr1 <> '') and (ZahlStr2 <> '') then begin
      ResultCompareValue:= CompareValue(StrToFloat(ZahlStr1),
                                        StrToFloat(ZahlStr2),
                                        0.01); // Genauigkeit
      // Zahlen gleich, Rest vergleichen
      if ResultCompareValue = 0 then
        result:= CompareText(Str1, Str2)
      else
        result:= ResultCompareValue;
    end else
      // Str2 ist eine Zahl
      if ZahlStr1 = '' then
        result:= 1
      // Str1 ist eine Zahl
      else
        result:= -1;
end;