[marcoszorrilla]

Prueba esto con un Edit:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n:Integer;
s:String;
begin
 For n:=0 to Length(Edit1.Text) do
 begin
   if (Ord(Edit1.text[n]) >=48) and (Ord(Edit1.text[n]) <=57)  then
   S:=S+Edit1.text[n];
 end;

 ShowMessage(s);

end;

Un Saludo.