¿como pasarle a un insert el valor del inputbox?

[Nelly]

hola,
¿Como le hago para pasarle un valor a un insert, que se da por medio de un inputbox?. Tal valor es un entero y quiero guardarlo en la BD tengo algo mas u menos asi, en realidad no es correcto, pero tengo la idea, aunque vaga pero idea al fin....

Código Delphi [-]
procedure TFrmMiembros.btnseleccionarClick(Sender: TObject);
var
    distritofederal:string;   // este es el campo que quiero almacenar con un entero.
begin
    if (((cve_tipo in [1,2,3,5,6..10]) and (QryLisMiembros.FieldByName('nestatus').asstring<>'ACTIVO') and (QryLisMiembros.FieldByName('fechainicioact').AsDateTime<=IncMonth(fevento,6))))then begin
    ShowMessage('No se logro insertar el registro, Verifique que'
                +#13#10+'sea Activo con más de 6 meses de antiguedad');
                DBGridMiembros.SetFocus;
    end else begin
        distritofederal:=InputBox('Sistema','Inserte el número de la convención a la cuál pertenece','');//lo que pasa tengo que preguntar en que evento se quiere registrar la persona y dependiendo del numero, debe tomar el campo distritofederal(solo debe aceptar los numeros 3 y 4)
        if (que pongo aqui)=distritofederal then begin
      try
        QryInsert.SQL.Clear;//codigo para acreditar.
        QryInsert.SQL.Add('insert into Acreditados (nombres, appat, apmat, ');
        QryInsert.SQL.Add('nEstatus,distritofederal,etc) ');
        QryInsert.SQL.Add('values (:nom, :appat, :apmat,');
        QryInsert.SQL.Add(':nEstatus,:distritofederal,:etc) ');
 
// de entrada solo les pondre como puse el parametro del campo distritofederal, que por cierto, nada que ver. POr eso pido ayuda.
QryInsert.ParamByName('distritofederal').AsInteger:=QryLisMiembros.FieldByName('distritofederal').As  Integer;//me imagino que asi no asigno o no toma el valor del inputbox.verdad?