Спарсить страницу!!!

[kangreon]

Примерно вот так будет.

var
  s: string;
  i,d: integer;
begin
  s := 'Ваш текст';
  i := 1;
  while PosEx('<num>',s,i)<>0 do
  begin
    i := PosEx('<num>',s,i)+5;
   d := StrToInt(copy(s,i,PosEx('<',s,i)-i));
   if d <> 0 then
      ExecuteProcedure(var1,var2);
  end;
end;