Hola GerTorresM.
Código Delphi
[-]
function SoloNumeros(Cad: string): string;
var
i: Integer;
begin
Result:='';
for i:= 1 to Length(Cad) do
if Cad[i] in ['0'..'9'] then
Result:= Result + Cad[i];
end;
Uso:
Código Delphi
[-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Text:= SoloNumeros(Edit1.Text)
end;
Saludos.