problemas con consulta SQL meter a la base de datos

[memehua]

QUERY1.Active:=TRUE;
while not query1.Eof do
begin
letras1.Numero:= query1.FieldByName('neto').Value;
query2.sql.Text:='update nomina_datos set importe_letra='+ QuotedStruppercase(letras1.AsString));
query2.ExecSQL;
query1.Next;
end;
Haciendo con dos querys unicamente me actualiza el ultimo registro y no los demas,lo que quiero hacer es que cuando hago la consulta me ponga el numero en letras y unicamente me pone el ultimo que trae ..