TStingList问题，急！！

Question

for i:=0 to stringlist1.count-1 do begin
  str:=stringlist1.strings[i];
  showmessage(str);
end;

Answer 1

var
s,r:string;
i:integer;
begin
for i:=0 to stringlist1.count-1 do 
begin
  s:=stringlist1.strings[i];  r:='';
  for i:=1 to length(s) do
  begin
    if ord(s[i]) in [ord('0')..ord('9')] then       r:=r+s[i];
  end;  showmessage(r);
end;

Answer 2

function extractdigit(s:String):String
var
i:integer;
begin
Result:='';
for i:=1 to length(string) do
if ord(s[i])>=48 and ord(s[i])<58 then
Result:=Result+String[i];
end;var
i:integer;
s:string;
begin
for i:=0 to stringlist1.count-1 do 
begin
  s:=extractdigit(stringlist1.strings[i]);
  if s<>'' then
   stringlist2.add(s);
end;
end;

Answer 3

for i:=0 to stringlist1.count-1 do begin
  str:=stringlist1.strings[i];
  showmessage(str);
end;