begin tabla1.first; while not tabla1.eof do begin Tabla1.Edit; tabla1campo1.value := 'NuevoValor'; Tabla1.Post; Tabla1.Next; end; end;