Szukanie w pliku, a potem suma.

Witam!
Mam plik.log. Chcialbym odczytac z niego pewne cyfry. Kazda z nich sie zaczyna tak:
Done 23 costam. Zalezy mi na tym, aby program wyciagal te wwszyskie cyfry z plik.log i jes sumowal... Niby proste, a nie mam pojecia jak to zrobic. Moglby mi ktos pomoc? Naprowadzic?
Z gory dzieki.

Podaj kilka linijek z tego pliku, lub wyslij mi taki przykladowy plik.

//DOPISANE:

Podam funkcje, moze sie komus przyda.

function Daj_liczbe(Napis: String; Poz: DWORD) : DWORD;
begin
  Result := 0;
  while (Napis[Poz] in ['0'..'9']) do
  begin
    Result := Result * 10 + (Ord(Napis[Poz]) - Ord('0'));
    Poz := Poz + 1;
  end;
end;

function Daj_Sume(Nazwa_Pliku: String) : DWORD;
var
  Plik: text;
  Linia: String;
begin
  Result := 0;
  AssignFile(Plik, Nazwa_Pliku);
  Reset(Plik);
  while ( not EOF(Plik) ) do
  begin
    ReadLn(Plik, Linia);
    if AnsiSameStr(Copy(Linia, 27, 4), 'Done') then
     Result := Result + Daj_Liczbe(Linia, 32);
  end;
  Close(Plik);
end;

Podaj kilka linijek z tego pliku, lub wyslij mi taki przykladowy plik.

poszlo na maila.