Удаление из ячейки StringGrid части текста

[SPD]

В роботе со StringGrid появилась такая проблема я считываю таблицу с Ексель и мне нужно уже в считаной таблице удалить символы и оставить только числа....
Пример:

-124 Ш должно остаться токо -124....

зарание благодарен.....

[Stilet]

Удаление символов из строки

for i:=length(s) downto 1 do
 if not s[i] in ['0'..'9','-'] then delete(s,i,1);

Здесь s - та строка

[evg_m]

-124 Ш должно остаться токо -124....

s:='-124 Ш'  //строка которую надо почистить
for j:=length(s) downto 1 do
  if not (s[j] in ['0'..'9','+','-']) then Delete(s,j,1);
mystringGrid.cell[n,k]:=s; // записываем очищенную строку

P.S. спешил, опечатался (to вместо downto), но все равно не успел

[SPD]

огромное спасибо.....