Парсинг строки имени файла

[NieL]

C веб-сервера приходят пакеты обновления.

Формат пакета обновления:

upd_7_to_11.zip
upd_11_to_24.zip
upd_24_to_28.zip

Для каждого пакета обновления нужно из имени извлечь номера версий. Нужен быстрый алгоритм (пакетов может быть несколько десятков). Что если использовать регулярные выражения? Не будет ли это слишком громоздко для такой задачи?

[SERG1980]

На выходе как должно быть?
7 11
или 7 11.zip

если можно пример

[NieL]

на входе

Apack_name := 'upd_1_to_2.zip'

procedure pack_get_vers(const Apack_name: string; out Afrom_ver, Ato_ver: Integer);

т.о. на выходе 2 целочисленных значения

[SERG1980]

Если так

procedure pack_get_vers(const Apack_name: string; out Afrom_ver, Ato_ver: Integer);
var tv,fv:integer;
    s:string;
begin
 s:=Apack_name;//upd_7_to_11.zip
 delete(s,1,4);
 Afrom_ver:=StrToInt(Copy(s,1,Pos('_',s)-1));
 Delete(s,1,Pos('to',s)+2);
 Ato_ver:=StrToInt(Copy(s,1,Pos('.',s)-1));
end;