Actualizar un Registro Por SQL con varios parametros

[Edwardfeliz]

Saludos, Yo de nuevo, fabrique una solución poco ortodoxa porque no se me ocurrió nada mas para resolver esto , si tienen alguna observación me gustaría saberla, Gracias.

Código Delphi [-]
Var
Cod, Numero : String;
Begin
 with QTemp do
    begin
    Close;
    SQL.Clear;
    SQL.Text:= 'SELECT TOP 1 Cod, Numero  FROM Cuotas WHERE (NumPrestamo =:Codigo) and (Estado = :Pendiente) '+
               'Order By Numero ASC';
    Parameters.ParamByName('Codigo').Value    := EnumPrestamo.Text;
    Parameters.ParamByName('Pendiente').Value := 'Pendiente';
    ExecSQL;
    Open;
    end;
 Cod   := Qtemp.FieldByName('Cod').AsVariant;
 Numero:= Qtemp.FieldByName('Numero').AsVariant;
 Begin
  with QTemp do
    begin
    Close;
    SQL.Clear;
    SQL.Text:= 'UPDATE Cuotas SET Fecha_Pago =:Fecha, Estado = :Estado, Mora = :Mora '+
               'Where Cod =:NumC';
    Parameters.ParamByName('Fecha').Value  := FormatDateTime('dd/mm/yyyy', Now);
    Parameters.ParamByName('Estado').Value := 'Realizado';
    Parameters.ParamByName('Mora').Value   := Edit1.Text;
    Parameters.ParamByName('NumC').Value   := Cod;
    ExecSQL;
    End;
 End;
End;;

Tuve que crear un campo autonumerico que denomine "Cod" para que tuviera un valor único y así luego poder hacer el UPTADE a ese único registro.
Cualquier sugerencia sera bien recibida.

Gracias.