Warnung beseitigen

[Muellermilchtrinker]

Servus DP,

ich hab in meinem Projekt eine Warnung. Diese möchte ich nun beseitigen.
Folgende Warnung:

Code:

[DCC Warnung] Unit1.pas(176): W1050 WideChar in Set-Ausdrücken auf ByteChar verkürzt.  Ziehen Sie die Verwendung der Funktion 'CharInSet' aus der Unit 'SysUtils' in Betracht.

Die Warnung tritt in folgender Funktion auf:

Delphi-Quellcode:

function Compare_NaturalSort(List: TStringList; Index1, Index2: Integer): Integer;

  function JustNumbers(instr:string):string ;
  var
    t:integer;
  begin
   for t:=1 to length(instr) do
     if instr[t] in ['0'..'9'] then result:=result+instr[t];// hier kommt die Warnung -.-
  end;

var
  di1, di2: Integer;
begin
  if not TryStrToInt(JustNumbers(List[Index1]), di1) then
    di1:=0;
  if not TryStrToInt(JustNumbers(List[Index2]), di2) then
    di2:=0;

  if di1<di2 then
    Result:=-1
  else if di1>di2 then
    Result := 1
  else
    Result := 0;
end;

Die Delphi-Version kann man aus meinem Profil entnehmen.^^

Ich hoffe ihr könnt mir helfen.