Receber INPUTQUERY apenas numeros !!

function TForm1.IsDigit(Valor: String): Boolean;
var nI, nX: Integer;
begin
nX := 0;
For nI := 1 to Length(Valor) do
  if not (Valor[nI] in [´0´..´9´]) then Inc(nX);
Result := nX = 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a: String;
begin
if inputquery(´Pesquisa´,´Número da Empresa => ´,nome1) then
  if IsDigit(nome1) then 
        procura:=dados.dados.Findkey([nome1]);

end;