[Resolvido] Validação em InputQuery

Ola Pessoal:

Tenho no meu código uma parte que tem:

procedure TfrmPrincipal.ImprimirClick(Sender: TObject);
var

 Dia: Integer;
 Texto: String;

begin

 Texto := '';
 if InputQuery('Digite o Dia para recebimento','Impressão para Recebimento em casa',Texto) then
 begin
 try
 Dia := StrToInt(Texto);
 except
 ShowMessage('Dia inválido!');
 Exit;
 end;
 end
 else
 begin
 Exit;
 end;
 Application.CreateForm(TfrmRelatorio,frmRelatorio);
 if not frmRelatorio.QryClientes.Locate('MelhorDia', Dia, []) then
 begin
 frmRelatorio.Close;
 ShowMessage('Registro não encontrado!');
 Exit;
 end
 else
 begin
 frmRelatorio.QryClientes.Filter := 'MelhorDia = ' + inttostr(Dia);
 frmRelatorio.QryClientes.Filtered := true;
 frmRelatorio.QuickRepListagem.PreviewModal;
 frmRelatorio.Free;
 end;
end;

Nele tem uma inputquery, e eu preciso validar se a pessoa digitou nela letras ou numeros.

Caso não tenha digitado numeros, imprimir na tela uma mensagem dizendo "Só aceita numeros".

Outra coisa, é limitar o campo da inputquery a apenas 3 digitos "___";

Desde já meus agradecimentos.

Carlos Rocha