Запись в строковую переменную чисел из строки

[Алексей_2012]

Здравствуйте, помогите реализовать программу, в которую вводится любые символы, допустим

по12*ро45*щз99, а выводятся только

12 45 99, то есть удаляются все символы, кроме чисел, и остаются только числа,разделенные пробелами, вот мои наработки, ничего не вышло, помогите!

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
   i:word;
   s1:string;
begin
  s:='';
  s1:='';
  s:=Trim(Edit1.text);
for i:=length(s) downto 1 do
if not(s[i] in ['0'..'9','*']) then Delete(s,i,1);

  s:=Trim(s);

 for i:=1 to Length(S) do
    s1:=s1+copy(s,Pos('*',s)-1,Pos('*',s))+' ';
  Edit1.Text:=s1;
end;

[XE5]

procedure TForm1.Button1Click(Sender: TObject);
var
  s1, s2: string;
  i: integer;
begin
  s1 := Edit1.Text;
  for I := 1 to Length(s1) do
    begin
      if s1[i] in ['0'..'9'] then // Код для XE CharInSet(s1[i], ['0'..'9']);
        s2 := s2 + s1[i];
      if s1[i] = '*' then
        s2 := s2 + ' ';
    end;
  ShowMessage(s2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
   i:word;
   s1:string;
begin
  s:='';// лишнее
  s1:='';// лишнее

[Arigato]

При чем тут звездочка (*)?

[Алексей_2012]

А вообще цель программы состоит в том, чтобы создать калькулятор, в котором учавствуют столбцы таблицы Tstringgrid,
то есть в эдит вводится формула: столбец5*столбец1-столбец3, затем результирующие данные записываются в столбец, проблема в том, чтоб достать действия (+-*/ )из эдита, а в массив записать номера столбцов и применить эти действия к таблице, сейчас пытаюсь провернуть все это с умножением, пока ничего не выходит, может у кого есть ссыль на подобную проблему? Постараюсь до завтра что-то придумать и бросить сюда код

[Человек_Борща]

MaskEdit и рег. выражения уже не в моде?