updatear mi codigo con paramsbyname

[Rofocale]

Código Delphi [-]
  SQL.Add('UPDATE unidades SET nombre = ''' + txtNombre.Text + ''',');
            SQL.Add('cuenta = ''' + txtClave.Text + ''',');
            SQL.Add('nombre2 = ''' + scateg + ''',');
            SQL.Add('fecha_umov = ''' + FormatDateTime('mm/dd/yyyy',Date) + '''');
            SQL.Add('WHERE clave = ' + IntToStr(iClave));
            ExecSQL;
            Close;

Buenas tengo ese codigo y quisiera hacerlo con parambyname y los sets con :cuenta :nombre2
me podrian decir mas o menos como es ? porque no me sale
gracias

[[Caral]]

Hola

Código Delphi [-]
SQL.Add('UPDATE unidades SET nombre = :nom, cuenta = :cla, nombre2 = :nom2, fecha_umov = :FechU ');
SQL.Add('WHERE clave = :Clave1');
Parambyname('nom').Value:= txtNombre.Text;
Parambyname('cla').Value:= txtClave.Text;
Parambyname('nom2').Value:= scateg;
Parambyname('FechU').Value:= FormatDateTime('mm/dd/yyyy',Date);
Parambyname('Clave1').Value:=  IntToStr(iClave);
ExecSQL;

Saludos

[[Caral]]

Hola
Mas:

Código Delphi [-]
SQL.Add('UPDATE unidades SET nombre = :nom, cuenta = :cla, nombre2 = :nom2, fecha_umov = :FechU ');
SQL.Add('WHERE clave = :Clave1');
Params[0].Value:= txtNombre.Text;
Params[1].Value:= txtClave.Text;
Params[2].Value:= scateg;
Params[3].Value:= FormatDateTime('mm/dd/yyyy',Date);
Params[4].Value:= IntToStr(iClave);
ExecSQL;

Saludos

[Rofocale]

Gracias caral