Убрать кавычки Delphi

[record222]

Доброе время суток друзья!
Не могу из текста:

var time=parseInt('20');

Достать цифры.
Пользуюсь функцией PARS, но функция извлекает не так как нужно...

'20'

Каким способом можно достать данные циферки без кавычек...

[3D Hunter]

//возвращает цифры в строке между одинарными кавычками
//если кавычек не найдено, то вернет пустую строку
function pars2(const AInStr:AnsiString):AnsiString;
var
  i,j:Integer;
begin
  Result:='';
  i:=Pos('''',AInStr);
  j:=LastDelimiter('''',AInStr);
  if (i=0) or (j=0) then Exit;
  Result:=Copy(AInStr,i+1,j-i-1);
end;

[record222]

3D Hunter, большое спасибо!

[Arigato]

record222
Вам это точно в Делфи надо или может ЯваСкрипт?