[aanil]

Caral, ahora yo hice esto y de esta manera funciona sin problemas.

Código Delphi [-]
while not datam.Query1.Eof do   // recorre la tabla en el query1
begin

datam.Qtemp.sql.Text := 'Update 20092 set practica = '+datam.Query1.fieldbyname('practica').AsString+' where matricula = '+QuotedStr(datam.Query1.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL;
datam.Query1.Next;
end;

while not datam.Query1.Eof do
begin

datam.Qtemp.SQL.Text := 'Update 20092 set tfinal = '+datam.Query1.fieldbyname ('tfinal').AsString+ ' where matricula = '+QuotedStr(datam.Query1.fieldbyname('matricula').AsString);
datam.Qtemp.ExecSQL; // ejecuta el query2
datam.Query1.Next;

 end;

 datam.Query1.Close;
 datam.Query1.Open;


end;

Una pregunta mas.. Como yo hago para que no me de un mensaje que dice
"Argumentos incorrectos, fuera del intevalo permitido o en conflicto con otros" , esto se produce si uno no escribe la matricula en el Tedit.

Gracias.