Задача на выборку на delphi 7

[Pypkin30159]

есть некий текст (не важно какой) в тексте содержатся цифры (не важно какие) текст с буквами и цифрами вводится в одно окно, по нажатию на кнопку текст выкидывается а цифры выводятся в другое окно.

помогите пожалуйста надеюсь на понемание

[Hacker19_90]

procedure TForm1.Button1Click(Sender: TObject);
var
    i: integer;
begin
    for i := 1 to Length(Memo1.Text) do
        if Memo1.Text[i] in ['0'..'9'] then
            Memo2.Text := Memo2.Text + Memo1.Text[i];
end;