[Edwardfeliz]

Código Delphi [-]
Begin
 with QTemp do
    begin
    Close;
    SQL.Clear;
    SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago = :Fecha, Estado = :Estado, Mora = :Mora  '+
               'Where (NumPrestamo =:Codigo) and (Numero =:Numero)';
    Parameters.ParamByName('Fecha').Value  := FormatDateTime('dd/mm/yyyy', Now);
    Parameters.ParamByName('Estado').Value := 'Realizado';
    Parameters.ParamByName('Mora').Value   := Edit1.Text;
    Parameters.ParamByName('Codigo').Value := EnumPrestamo.Text;
    Parameters.ParamByName('Numero').Value := ????
    ExecSQL;
    end;
 End;

Esto es lo que tengo hasta ahora, esta incompleto, como lo termino?