Fórum Tlist, Me ajudem #179285

Criei um tlist, um record e um ponteiro ;
FList:=TList.Create;
TRec=record
Str:String;
Int:Integer;
end;
PRec=^TRec;

Enchi este tlist
procedure enche;
var
PNewRec:PRec;
begin
New(PNewRec);
PNewRec^.Str:=´A´;
PNewRec^.Int:=3;
FList.Add(PNewRec);
New(PNewRec);
PNewRec^.Str:=´C´;
PNewRec^.Int:=1;
FList.Add(PNewRec);
New(PNewRec);
PNewRec^.Str:=´B´;
PNewRec^.Int:=2;
FList.Add(PNewRec);
end;

Criei um sort para o tlist
function CompareString(Item1, Item2: Pointer): Integer;
begin
if PRec(Item1)^.Str<PRec(Item2)^.Str then Result:=-1;
if PRec(Item1)^.Str=PRec(Item2)^.Str then Result:=0;
if PRec(Item1)^.Str>PRec(Item2)^.Str then Result:=+1;
end;

Flist.sort(CompareString);


O que preciso fazer, é localizar ´C´ para pegar o valor ´1´, como faço???


:oops: